常用ASP代码（一）-ASP教程,ASP应用-IDC资讯中心

获取页面的html

[新开一个窗口]============================================================================================================

window.open(filename,,toolbar=0,location=0,directories=0,status=0,menubar=0,scrollbars=1,resizable=1,width=400,height=570,top=200,left=300,bottom=0,right=0);

[关于js调用]============================================================================================================

new.asp(调用文件)

<%

str = "循环取的要调用的数据"

关键是下面这句,调用document函数打印输入str值—>

%>

document.write(<%=str%>)

ok,结束,在其他要调用的页面插入

<script language="javascript" src="new文件所在目录/news.asp></script>

[打开一个窗口，并且关闭当前窗口]============================================================================================================

<script language="javascript">

//–>

window.open(menumain.asp,,toolbar=0,location=0,directories=0,status=0,menubar=0,scrollbars=1,resizable=1,width=,height=,top=0,left=0,bottom=0,right=0);

window.opener = "meizz"; //加了这句代码ie5.5+不会有关闭提示

window.close();

//–

</script>

[分页显示记录]============================================================================================================

一.

<%

dim maxperpage

dim totalpage

if not isempty(request("page")) then

currentpage=cint(request("page"))

else

currentpage=1

end if

%>

二.

<%

set rs=server.createobject("adodb.recordset")

sql="select top 20 * from person order by id desc"

rs.open sql,conn,1,1

if rs.eof and rs.bof then

response.write "没有任何人才信息"

else

rs.pagesize=10

maxperpage=rs.pagesize

totalpage=rs.pagecount

if currentpage<1 then

currentpage=1

end if

if currentpage>totalpage then

currentpage=totalpage

end if

if currentpage>1 then

rs.move (currentpage-1)*maxperpage

dim bookmark

bookmark rs.bookmark

end if

i=1

do while not rs.eof and i<=10

%>

……本页显示的数据

<%

i=i+1

rs.movenext

loop

end if

rs.close

%>

三.

<a href="allrencai.asp?page=1>第一页 &nbsp</a>

<a href="allrencai.asp?page=<%=currentpage-1%>上一页  </a>

<a href="allrencai.asp?page=<%=currentpage+1%>">下一页  </a>

<a href="allrencai.asp?page=<%=totalpage%>最末页</a>

按照上面的模式套进去就可以了,应该没什么问题!

[获取用户ip]============================================================================================================

request.servervariables("remote_addr")

[对象的显示与隐藏(style.display的应用)]============================================================================================================

document.name.style.display="none"; //隐藏

document.name.style.display="block"; //显示

[改变文本字体大小]============================================================================================================

<script language="javascript">

<!–

function fontzoom(size)

{

document.getelementbyid("fontzoom").style.fontsize=size+"px"

}

//–>

</script>

<table>

<tr>

<td id="fontzoom">1234fsdfsdfasd234234311dfasdfsd23</td>

<td><a href="javascript:fontzoom(12)">12</a></td>

<td><a href="javascript:fontzoom(18)">18</a></td>

</tr>

</table>

[随机抽取记录]============================================================================================================

rs.movefirst

randomize

rs.move int(rnd*rs.recordcount)

[获取id为r1的radio的值]============================================================================================================

<form name="form1" method=post action="">

<input type=radio value=l name="r1">左对齐

<input type=radio value=r name="r1">右对齐

<input type=radio checked value=m name="r1">中间对齐

<input type=radio value=s name="r1">两端对齐

<input type="button" name="cmd" value="getvalue" onclick="getvalue()">

</form>

<script language="javascript">

<!–

function getvalue()

{

var msg="";

var i=0;

for(i=0;i<document.all.form1.r1.length;i++)

if(document.all.form1.r1[i].checked)alert(document.all.form1.r1[i].value);

}

–>

</script>

[向一个frame中载入页面]============================================================================================================

<html>

<head>

<script language="javascript">

<!– hiding

function loadtwo(page2, page3) {

parent.fr2.location.href=page2;

parent.fr3.location.href=page3;

}

// –>

</script>

</head>

<body>

<form name="buttons">

<input type="button" value="同时载入两份文件" onclick="loadtwo(frtest1.html,

frtest2.html)">

</form>

</body>

</html>

[asp动态输出一个图片或flash]============================================================================================================

<%

if rsdb("filetype")<>"swf" then

%>

<a href="<%=rsdb("linkurl")%>" name="logoimglink" target="_blank"><img src="/admin/adver/upload/<%=rsdb("id")%>.<%=rsdb("filetype")%>" width="550" height="100" name="logoimg" border="0"></a>

<%

else

response.write("<object classid=""clsid:d27cdb6e-ae6d-11cf-96b8-444553540000"" codebase=""http://download.macromedia.com/pub/shockwave/cabs/flash/swflash.cab#version=6,0,29,0"" width=""550"" height=""100""> <param name=""movie"" value=""/admin/adver/upload/"+cstr(rsdb("id"))+"."+rsdb("filetype")+"""> <param name=""quality"" value=""high""> <embed src=""/admin/adver/upload/"+cstr(rsdb("id"))+"."+rsdb("filetype")+" quality=""high"" pluginspage=""http://www.macromedia.com/go/getflashplayer"" type=""application/x-shockwave-flash"" width=""550"" height=""100""></embed></object>")

end if

%>

[连接sql数据库]============================================================================================================

set dcndb = server.createobject("adodb.connection")

dcndb.open "provider=sqloledb.1;persist security info=false;user id=帐号;pwd=密码;initial catalog=表名;data source=数据库ip(localhost本地)"

set rsdb = server.createobject("adodb.recordset")

[模糊查找(sql数据库)]============================================================================================================

sql="select * from [user] where user_name like %xxxxx%"

[sql数据库中时间的表示方法]============================================================================================================

sql="select * from [user] where [date]<2004-4-7"

[浮动广告]============================================================================================================

第一步:把如下代码加入<head>区域中

<script language="javascript">

<!–//

//设置下面一些参数，小球移动速度1-50，数值大速度快；

var ballwidth = 40;

var ballheight = 40;

var ballspeed = 10;

var maxballspeed = 50;

var xmax;

var ymax;

var xpos = 0;

var ypos = 0;

var xdir = right; //水平方向向右移动

var ydir = down; //垂直方向向下移动

var superballrunning = true;

var tempballspeed;

var currentballsrc;

var newxdir;

var newydir;

if (document.all||document.layers)

window.onload = initializeball;

window.onresize = new function("window.location.reload()");

// –>

</script>

<style type="text/css">

#superball {

position:absolute;

left:0;

top:0;

visibility:hide;

visibility:hidden;

width:40;

height:40;

}

</style>

第二步:把如下代码加入区域中：

16:16 2004-4-11

[判断文件是否存在]=============================================================================================

set fs = server.createobject("scripting.filesystemobject")

if fs.fileexists(filename) then

fs.deletefile(filename)

end if

[用webeasymail发送邮件]==================================================================================

以下是一段找回密码的过程！

sub send_em()

dim mailsend

dim sender

str="尊敬的"&request("psqname")&":"

str=str&"<p>"

str=str&"<br/>"

str=str&"    您登录密码为:"&rsdb("password")&"，请务必记住此登陆码，<br/>因为您必须以此登陆码才能登陆本站。"

str=str&"<br/>"

str=str&"    如果您注册的是高级会员，请等待验证和通知。"

str=str&"<br/>"

str=str&"    希望能给您带来新的收获，顺祝收成日丰!"

str=str&"<br/>"

str=str&"<hr>"

str=str&"<br/>"

str=str&"    road lab xian china"

str=str& "    e-mail:webmaster@roadhome.net"

set mailsend = server.createobject("easymail.mailsend")

mailsend.createnew "webmaster@roadhome.net","登录密码"

发信人名称

mailsend.mailname = "road lab xian china"

mailsend.em_to =rsdb("email")

收件人邮件地址

mailsend.em_subject = "找回密码!!" 邮件主题"

mailsend.em_html_text =str

mailsend.userichediter = true

mailsend.send

set mailsend=nothing

end sub

[过滤html标签获得纯字符]====================================================================================

<script language="vbscript">

function regexptest(patrn, strng)

dim regex, match, matches 建立变量。

set regex = new regexp 建立正则表达式。

regex.pattern = patrn设置模式。

regex.ignorecase = true 设置是否区分字符大小写。

regex.global = true 设置全局可用性。

set matches = regex.execute(strng)执行搜索。

dim rtstr

rtstr=strng

for each match in matches遍历匹配集合。

rtstr=replace(rtstr,match.value,"")

next

regexptest = rtstr

end function

content=regexptest("<.*?>", content)

</script>

[解决xmlhttp post数据乱码问题]===============================================================================

function getvalue()

dim xmldom

set xmldom=createobject("msxml2.xmlhttp")

xmldom.open "post","http://dheart.51.net/ip/index.php?ip=10.100.1.11",false

xmldom.send

msgbox(bytes2bstr(xmldom.responsebody))

end function

function bytes2bstr(vin)

strreturn = ""

for i = 1 to lenb(vin)

thischarcode = ascb(midb(vin,i,1))

if thischarcode < &h80 then

strreturn = strreturn & chr(thischarcode)

else

nextcharcode = ascb(midb(vin,i+1,1))

strreturn = strreturn & chr(clng(thischarcode) * &h100 + cint(nextcharcode))

i = i + 1

end if

next

bytes2bstr = strreturn

end function

[sql修改库结构]

strsql="alter table product add orderid int null"

conn.execute(strsql)

[把doc转成html文件]=============================================================================================

<html>

<head>

<title>walkingpoisons word-to-html sample</title>

<script language=javascript>

function saveword(){

var owordapp=new activexobject("word.application");

var odocument=owordapp.documents.open("c:\\temp.doc");

odocument.saveas("c:\\test.htm",8)

owordapp.quit();

getdoc.innerhtml=""

}

function getiframedoc(){

alert(iframedoc.value);

}

</script>

</head>

<body>

click the "save" button to save the file "c:\test.doc" to "c:\test.htm":

<input type=button onclick="saveword()" value=save>

<button onclick="getiframedoc()">getdoc.html</button>

<p> </p> <iframe src=c:\test.htm id=iframedoc></iframe>

<div id="getdoc"></div>

</body>

</html>

常用ASP代码（一）-ASP教程,ASP应用

相关推荐

热门标签

热门文章

分类目录