asp（dreamwaver 8.0+xp sp2）+sql server 2000 关键代码

公告

View Post

一夜通宵
终于调通了样本代码
如题，
编译环境为：winXP SP2操作系统，dreamwaver 8.0制作工具，ASP页面性质，VBscript脚本，SQL Server 2000数据库。
注意问题：
                1.同目录提交跳转页面，超链接可以跳转同目录何不同目录。
                2.form标识处配置最近处提交按钮（submit）的行为
                3.提交按钮的执行脚本在其将跳转页面下添加，在head和body中间，用<%%〉标识
                4.几个重要关键字：response, request, set, ADO

下面是提交页面的脚本：

<%@LANGUAGE="VBSCRIPT" CODEPAGE="936"%>
<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd">
<html xmlns="http://www.w3.org/1999/xhtml">
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312" />
<title>无标题文档</title>
</head>
<%
name=request.form("adminname")                      '获取提交按钮Post过来的参数，分别为管理员姓名和密码及校验密码

pwd=request.form("adminpassword")

repwd=request.form("repassword")

Response.Buffer=true

Dim count '定义查询后存在RecordSet对象中数据条数

if name="" or pwd="" or repwd="" then

Response.write "不能有未填项！请重新登录！"
Response.write "<a href=javascript:history.go(-1)>返回</a>"

else

if pwd <> repwd Then

  Response.write "验证密码错误！请重新登录！"
  Response.write "<a href=javascript:history.go(-1)>返回</a>"

Else

  strConnect = "driver=SQL Server;DATABASE=examsysDB;UID=sa;PWD=;SERVER=caiyuancui"
   '数据库连接字符串

  strsql="select * from administratorTable where adminname='"+name+"' and adminpassword='"+pwd+"'"        '查询的sql语句

  Set Cnn = Server.CreateObject("ADODB.Connection")

  Dim rsTest
  '定义临时数据集
  Cnn.open strConnect

  Set rsTest = Cnn.Execute(strsql)

  count = 0

  Do While Not rsTest.EOF
      count=count+1
   rsTest.movenext
  Loop

  if count=0 then

   response.write "密码错误！"
   Response.write "<a href=javascript:history.go(-1)>返回</a>"

  else

   response.write "登录成功！" 'Cstr(count)

   'response.redirect "main_management.asp"
   '登录成功时的地址再定位
  end if

  Cnn.close

  set rsTest = nothing

End If

end if

%>
<body>
</body>
</html>

posted on 2006-05-28 06:54 求索阅读(739) 评论(0) 收藏举报

刷新页面返回顶部