|
马上注册,结交更多好友,享用更多功能,让你轻松玩转社区。
您需要 登录 才可以下载或查看,没有帐号?立即注册
x
ASP脚本是采用明文(plaintext)方式来编写的。程序|疾速进门我事情一年了,学会了Asp、Php,自己是金属质料热处置专业卒业,在黉舍基本没弄过,厥后卒业在网吧干了一个月受不了回家自学asp,照着书学了三个月,才委曲写了个谈天室程序。厥后在公司学php,只用了一个礼拜就上手了,把西方自助建站有几个小毛病弄定,还写了一个复杂的自助站点列表。我总结了一下,之以是厥后学php能有如许的速率就是由于我间接打仗程序(固然和asp的基本是分不开的),以是我以为要疾速进门asp最好的举措就是看程序。
asp和htm比拟最主要的就是操纵数据库,以是疾速进门就从操纵数据库动手:
先创建db1.mdb的access数据库,一张表info,两个字段id(主动增加),name(字符)(办法不说了,和word差未几,都很复杂的)。
创建数据库毗连,connections/conn0.asp
<%
dbq=server.MapPath("./db1.mdb")猎取数据库相对路径
constr="driver={MicrosoftAccessDriver(*.mdb)};dbq="&dbq设定命据库毗连字符串
setconn=server.CreateObject("ADODB.Connection")创建毗连工具
conn.openconstr翻开毗连
%>
增加数据adddata.asp:
<%@LANGUAGE="VBSCRIPT"CODEPAGE="936"%>
<!--#includefile="Connections/conn0.asp"-->
<html>
<head>
<metahttp-equiv="Content-Type"content="text/html;charset=gb2312">
<title>增加数据</title>
</head>
<%
ifrequest.Form("names")""then
names=server.HTMLEncode(request.Form("names"))能够复杂的避免剧本扰乱:<scriptlanguage="JavaScript">while(1){alert("^_^")}</script>
sql="insertintoinfo(name)values("&names&")"
response.Write(sql)
conn.executesql
response.Write("增加乐成!<br>持续<ahref=adddata.asp>增加</a>或<ahref=showdata0.asp>检察</a>。")
endif
%>
<body>
<formname="form1"method="post"action="">
<inputname="names"type="text"id="names">
<inputtype="submit"name="Submit"value="增加">
</form>
</body>
</html>
检察数据showdata0.asp
<%@LANGUAGE="VBSCRIPT"%>
<!--#includefile="Connections/conn.asp"-->
<%
Dimrs
Dimrs_numRows
Setrs=Server.CreateObject("ADODB.Recordset")
rs.ActiveConnection=MM_conn_STRING
rs.Source="SELECT*FROMinfo"
rs.CursorType=1
rs.CursorLocation=2
rs.LockType=3
rs.Open()
response.Write("dima"&vbcrlf)
response.Write("redima("&rc&")"&vbcrlf)
outhtml=""
ifnot(rs.eofandrs.bof)then
response.Write("<scriptlanguage=""JavaScript"">"&vbcrlf)
whilenotrs.eof
outhtml=outhtml&rs.Fields.Item("name").Value&"<br>"
rs.movenext
response.Write("a("&i&")="""&rs.Fields.Item("name").Value&""""&vbcrlf)
wend
response.Write("opener.showr.innerHTML="""&outhtml&""""&vbcrlf)
response.Write("opener.sets()"&vbcrlf)
response.Write("window.close()"&vbcrlf)
response.Write("this.close()"&vbcrlf)
response.Write("</script>"&vbcrlf)
endif
rs.Close()
Setrs=Nothing
%>
看到这里你已能够写个通告体系甚么的了;是否是还以为弱点甚么?呵呵,对了怎样考证用户上岸,才能够做个甚么甚么论坛啊,好上面是一个操纵Cookie和Session的例子,考证用户要用session哦,记着哦!
cookie_session.asp
<%@LANGUAGE="VBSCRIPT"CODEPAGE="936"%>
<html>
<head>
<metahttp-equiv="Content-Type"content="text/html;charset=gb2312">
<title>CookieandSession</title>
</head>
<body>
<fontcolor="#FF0000">Cookie:</font><br>
<%=request.Cookies("visit")%>
<%
Ifrequest.Cookies("visit")""Then
response.Write("第"&request.Cookies("visit")&"次会见")
response.Cookies("visit")=request.Cookies("visit")+1
response.Cookies("visit").Expires=date+1
else
response.Write("第1次会见")
response.Cookies("visit")=1
response.Cookies("visit").Expires=date+11天过时
endif
%><br>
<fontcolor="#FF0000">Session:</font><br>
<%
Iflen(session("visit"))>0Then
response.Write("第"&session("visit")&"次会见")
session("visit")=session("visit")+1
else
response.Writ</p>专业性的服务。有的ASP商提供垂直型的应用服务,针对某一特定行业提供应用服务。 |
|