CSDN博客

img panzi667

整理了一些asp初学者常用的代码 (3)

发表于2004/10/23 16:04:00  1216人阅读

分类: asp 网页设计

<form>
<label&nbsp;for=&quot;check1&quot;>经常来这里</label>&nbsp;
<input&nbsp;type=&quot;CHECKBOX&quot;&nbsp;id=&quot;check1&quot;&nbsp;value=&quot;often&quot;&nbsp;name=&quot;checkoften&quot;>
<label&nbsp;for=&quot;check2&quot;>偶尔来看看</label>&nbsp;
<input&nbsp;type=&quot;CHECKBOX&quot;&nbsp;id=&quot;check2&quot;&nbsp;value=&quot;seldom&quot;&nbsp;name=&quot;checkseldom&quot;>
</form>

呵呵,不好意思,忘了说明,这个代码是显示复选框更容易点中。我们平常会发现复选框有时候只能准确的点击那个小框框,加入这段代码,点中跟在小框框后面的文字也可以选中!!!
验证合法EMAIL地址:
function IsValidEmail(email)
dim names, name, i, c
IsValidEmail = true
names = Split(email, "@")
if UBound(names) <> 1 then
IsValidEmail = false
exit function
end if
for each name in names
if Len(name) <= 0 then
IsValidEmail = false
exit function
end if
for i = 1 to Len(name)
c = Lcase(Mid(name, i, 1))
if InStr("abcdefghijklmnopqrstuvwxyz_-.", c) <= 0 and not IsNumeric(c) then
IsValidEmail = false
exit function
end if
next
if Left(name, 1) = "." or Right(name, 1) = "." then
IsValidEmail = false
exit function
end if
next
if InStr(names(1), ".") <= 0 then
IsValidEmail = false
exit function
end if
i = Len(names(1)) - InStrRev(names(1), ".")
if i <> 2 and i <> 3 then
IsValidEmail = false
exit function
end if
if InStr(email, "..") > 0 then
IsValidEmail = false
end if

end function
Windows Media Player 播放器
<OBJECT id=MediaPlayer1
style="LEFT: 0px; VISIBILITY: visible; POSITION: absolute; TOP: 0px;z-index:2"
codeBase=http://activex.microsoft.com/activex/controls/mplayer/en/nsmp2inf.cab#Version=5,1,52,701standby=

Loading
type=application/x-oleobject height=300 width=320
classid=CLSID:6BF52A52-394A-11d3-B153-00C04F79FAA6 VIEWASTEXT>
<PARAM NAME="URL" VALUE="地址">


<param name="AudioStream" value="-1">
<param name="AutoSize" value="0">
<param name="AutoStart" value="-1">
<param name="AnimationAtStart" value="0">
<param name="AllowScan" value="-1">
<param name="AllowChangeDisplaySize" value="-1">
<param name="AutoRewind" value="0">
<param name="Balance" value="0">
<param name="BaseURL" value>
<param name="BufferingTime" value="5">
<param name="CaptioningID" value>
<param name="ClickToPlay" value="-1">
<param name="CursorType" value="0">
<param name="CurrentPosition" value="-1">
<param name="CurrentMarker" value="0">
<param name="DefaultFrame" value>
<param name="DisplayBackColor" value="0">
<param name="DisplayForeColor" value="16777215">
<param name="DisplayMode" value="0">
<param name="DisplaySize" value="4">
<param name="Enabled" value="-1">
<param name="EnableContextMenu" value="-1">
<param name="EnablePositionControls" value="0">
<param name="EnableFullScreenControls" value="0">
<param name="EnableTracker" value="-1">
<param name="InvokeURLs" value="-1">
<param name="Language" value="-1">
<param name="Mute" value="0">
<param name="PlayCount" value="1">
<param name="PreviewMode" value="0">
<param name="Rate" value="1">
<param name="SAMILang" value>
<param name="SAMIStyle" value>
<param name="SAMIFileName" value>
<param name="SelectionStart" value="-1">
<param name="SelectionEnd" value="-1">
<param name="SendOpenStateChangeEvents" value="-1">
<param name="SendWarningEvents" value="-1">
<param name="SendErrorEvents" value="-1">
<param name="SendKeyboardEvents" value="0">
<param name="SendMouseClickEvents" value="0">
<param name="SendMouseMoveEvents" value="0">
<param name="SendPlayStateChangeEvents" value="-1">
<param name="ShowCaptioning" value="0">
<param name="ShowControls" value="-1">
<param name="ShowAudioControls" value="-1">
<param name="ShowDisplay" value="0">
<param name="ShowGotoBar" value="0">
<param name="ShowPositionControls" value="-1">
<param name="ShowStatusBar" value="-1">
<param name="ShowTracker" value="-1">
<param name="TransparentAtStart" value="-1">
<param name="VideoBorderWidth" value="0">
<param name="VideoBorderColor" value="0">
<param name="VideoBorder3D" value="0">
<param name="Volume" value="70">
<param name="WindowlessVideo" value="0">
</OBJECT>
2004-07-22 6:34 PM | msroom

# 回复:整理了一些asp初学者常用的代码

RealPlayer 播放器
<object id=video1 classid=" clasid:CFCDAA03-8BE4-11CF-B84B-0020AFBBCCFA"
width=320 height=240 align="middle">
<param name="controls" value="inagewindow">
<param name="console" value="chicp1">
<param name="autostar" value="true">
<param name="src" value="地址">
<embed
src="地址"
type="audio/x-pn-realaudio-plugin" console="chip1"
controls="imagewindow" width=320 height=240 autostart=true align="middle">
</embed>
</object>
问题:如何保护自己的ASP源代码不泄露?

  答:下载微软的windows script encoder,对ASP的脚本和客户端javascript、vbscript脚本进行加密。客户端脚本加密后,只有ie5以上的版本才能执行,服务器端脚本加密后,只有服务器上安装有script engine 5(装ie5即可)才能解释执行。


  问题:为什么global.asa文件总是不起作用?

  答:只有把global.asa文件放在web发布目录某个站点的根目录下它才有效,放在发布目录的某个子目录下不起作用。另外,也可以使用iis4的internet service manager把某个子目录设置为站点。

  问题:为什么ASP文件总不解释执行?

  答:在iis服务器上没有给ASP文件以脚本解释的权限,所以ASP文件没有被web服务器作为脚本代码进行解释执行,而被当成一般页面文件了。建议在web发布目录中建立一个ASP目录,把所有ASP文件存放在此目录下,把ASP目录赋予脚本解释权限。

  问题:ASP文件中使用response.redirect(url)时导致错误“the http headers are already written to the client browser. any http header modifications must be made before writing page content”,请问如何解决?

  答:此错误为http标题在写入页内容之后,写到了客户浏览器中。任何http标题的修改必须在写入页内容之前进行,解决的方法为在ASP文件最开头加入response.buffer = true,在文件的结尾加入response.flush。

  问题:为什么session有时候会消失?

  答:session很像临时的cookie,只是其信息保存在服务器上(客户机上保存的是sessionid)。session变量消失有几种可能,如:使用者的浏览器不接受cookie,因为session依赖于cookie才能跟踪用户;session在一段时间后过期了,缺省为20分钟,如果希望更改,可以通过设置microsoft management console的web directory→properties→virtual directory→application settings→configuration→app options→session timeout选项来改变session的超时时间,也可以在ASP脚本中设定,如session.timeout=60,可设定超时时间为60分钟。

  问题:怎样才能知道访问者的一些信息?

  答:通过request.servervariables(″http—user—agent″)获得访问者浏览器的类型;request.servervariables(″remote—addr″)可获得访问者的ip地址;而访问者的语言环境可通过request.servervariables(″http—accept—language″)来获得。

  问题:怎样才能将query string从一个ASP文件传送到另一个ASP文件?

  答:前一个ASP文件加入下列代码:response.redirect(″second.ASP?″&request.servervariables(″query—string″))即可。

  问题:ASP中如何控制cookies?

  答:若想写入cookies可用:response.cookies(″待写入的coookies名称″)=待写入数据。读取cookies则使用:读取数据=request.cookies(″待读的cookies名称″)。

  注意,写入cookies的response.cookies程序段必须放在〈html〉标记之前,且不可以有任何的其它html代码。另外,cookies中必须使用expires设定有效期,cookies才能真正地写入客户端硬盘中,否则只是临时的。

  问题:怎样实现用ASP发送邮件?

  答:用户需装上windows nt option pack的smtp service功能。实现代码如下:

  〈%

  set mail = server.createobject(″cdonts.newmail″)

  mail.to =″abc@xxx.com″

  mail.from =″yourmail@xxx.com″

  mail.subject =″主题″

  mail.body =″e-mail内容″

  mail.send

  %〉

  问题:ASP与数据库连接一定要在服务器端设置dsn吗?

  答:不一定,ASP与服务器的数据库连接有两种方法,一种为通过dsn建立连接,另一种不用dsn建立连接。通过dsn连接数据库需要服务器的系统管理员在服务器的控制面板中的odbc中设置一个dsn。如果没有在服务器上设置dsn,只要知道数据库文件名(比如access、paradox、foxpro的数据库)或者数据源名(如sqlserver的数据库)就可以访问数据库,直接提供连接所需的参数即可。

  连接代码如下:

  set conn=server.createobject(″adodb.connection″)

  connpath=″dbq=″&server.mappath(″yourtable.mdb″)

  conn.open″driver={microsoft access driver (.mdb)};″&connpath

  set rs=conn.execute(″selectfrom authors″)

  问题:如何从一页到另一页传递变量?

  答:用hidden表单类型来传递变量。

  〈form method=″post″action=″mynextpage.ASP″〉

  〈% for each item in request.form %〉

  〈input namee=″〈%=item%〉″type=″hidden″

  value=″〈%=server.htmlencode(request.form(item)) %〉″〉

  〈% next %〉

  〈/form〉

  用session来保存变量。

  〈%session(″bh″)= request.form (″bh″)%〉

  用querystring保存变量。

  〈a herf=″action.ASP?bh=10″〉查询〈/a〉

  〈%request. querystring (″bh″)%〉

  问题:如何用ASP实现在线人数统计?

  答:在线人数是指一个时段内的访客人数统计,时间的长短是由设计者设定的。

  在这个时段内,各个不同ip访问本站点的总数,就是当前的线上人数。在ASP中,使用session对象来实现统计,实现代码如下:

  golobal.asa文件

  〈script language=″vbscript″runat=″server″〉

  sub session—onstart

  application(″online″)=application(″online″)+1

  end sub

  sub session—onend

  application(″online″)=application(″online″)-1

  end sub

  sub application—onstard

  application(″online″)=0

  end sub

  sub application—onend

  application(″online″)=0

  end sub

  〈/script〉

  online.ASP文件内容

  〈% tmp=application(″online″)

  tmp=cstr(tmp)

  dim disp(20)

  dim images(20)

  dbbits=len(tmp)

  for i= 1 to dbbits

  disp(i)=left(right(tmp,i),i-(i-1))

  next

  for i=dbbits to 1 step -1

  images(i)=″〈img src=″&″http://xxxx.com.cn/pic″&″/″&disp(i)&″.gif〉″

  response.write″document.write(′″&images(i)&″′);″

  next %〉

  问题:ASP程序运行的时间如何计算?

  答:确定ASP程序的执行时间的代码如下所示:

  〈%

  dim t1,t2

  t1=now()

  ′被检测的ASP代码

  t2=now()

  response.write″运行这段ASP代码用了″&cstr(cdbl((t2-t1)*24*60*60))&″秒″

  %〉
删除记录时弹出确认框:

<script LANGUAGE="VBSCRIPT">
a=msgbox("真的要删除该记录吗?",1,"注意")
if a=1 then
location="Dodelete.asp?id=<%=id%>" //指向执行删除的页面Dodelete.asp
else
history.go(-1)
end if
</script>

其中id=<%=id%>是指从表单中取得的数据编号,当然也可以是其他的东东。
这是我钱两天在坛子里提出的问题,感谢大家给出的解决方法,我觉得这条比较好用,希谢谢!
将查询数据时得到的记录关键字用红色显示:

<% =replace(RS("字段X"),searchname,"<font color=#FF0000>" & searchname & "</font>") %>

其中SEARCHNAME是查询时输入的关键字,这个效果就向大多数查询功能中常用的那样,也是在论坛中问人得来的答案,希望对和我一样的菜鸟有帮助,

这个论坛的人都很好,都很热心,I LIKE IT:)
阅读全文
0 0

相关文章推荐

img
取 消
img