高手，为什么引用文件后会不正常呢？？

主题：高手，为什么引用文件后会不正常呢？？

hack119 [专家分：10] 发布于 2007-05-11 22:54:00

我写的一段代码，现在没什么问题，

但我数据库写在conn.asp里
然后在要调要的地方加入
结果首页出现
Microsoft VBScript 编译器错误 '800a03f6'

缺少 'End'

\wwwroot\index.asp, line 117

下面是我的CONN文件
<%
Dim data,conn,connstr

const mysql= 0 '0为SQL数据库，1为ACCESS数据库

if mysql = 1 then

Dim SqlDatabaseName,SqlPassword,SqlUsername,SqlLocalName
    SqlDatabaseName = "newasp"     '数据库名
    SqlUsername = "sa"          '用户名
    SqlPassword = "newasp"          '用户密码
    SqlLocalName = "(local)"        '连接名（本地用local，外地用IP）
    ConnStr = "Provider = Sqloledb; User ID = " & SqlUsername & "; Password = " & SqlPassword & "; Initial Catalog = " & SqlDatabaseName & "; Data Source = " & SqlLocalName & ";"

else

        data="admin.mdb"
    Connstr = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath(data)
    set conn = Server.CreateObject("adodb.connection")
    conn.open connstr
    Conn.Close
    Set Conn = Nothing
%>

下面是我的首页
115-121行是<a href="admin1.asp?id=<%= session("id")%>">修改资料</a>
<a href="logout.asp">退出登陆</a>
</td>
</tr>
</table>
</body>
</html>


<script language=javascript>

</script>
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<title>移动通信用户鉴权系统</title>
</head>
<body>
<center><font size="+1" color="#FF0000">移动通信用户鉴权系统<br><%=now()%></font>
<form name="form1" action="" method="post">
<table border="0" background="26.gif" cellpadding="0" cellspacing="20">
<tr>
<td>帐号：<input type="text" name="user" size="20" maxlength="16" value="<%
if (request.Cookies("user")<>"") then
   response.Write(request.Cookies("user"))
else
   response.Write("")
end if
%>" >
</td>
</tr>
<tr>
<td>密码：<input type="password" name="pass" size="20" maxlength="16" value="" >
</td>
</tr>
<tr>
<td>记住我的帐号 <input type="checkbox" name="checkrem" maxlength="16" value="1"<%
if (request.Cookies("checkrem") = "1") then
   response.Write(request.Cookies("checkrem"))
else
   response.Write("")
end if
%>
</td>
</tr>
<tr>
<td><input type="submit" name="submit" value="确定" onClick="check()"></td>
<td><input type="reset" name="benreset" value="重置"></td>
</tr>
<tr>
<td><a href="reg.asp">加入移动通信用户鉴权系统</a>
</td>
</tr>
</table>
</form>
<%

Dim user,pass

user=Trim(Request.Form("user"))
pass=Trim(Request.Form("pass"))

Dim rs,sql

  set rs=server.createobject("adodb.recordset")
  sql="select * from [admin] where pass='" & pass & "' and user='"&user&"'"
  rs.open sql,conn,1,1

if  rs.eof then
  response.Write"<script>alert('帐号密码错误');</script>"
  response.End()
end if

     session("id")=rs.fields("id")
     session("user")=user
     session("class")=rs.fields("class")
     session("pass") = true

if rs.fields("class") = "2" then
     session("admin") = true
else
     session("admin") = flase
end if

if Request.Form("checkrem") = "1" then
   response.Cookies("user") = user
   response.Cookies("checkrem") = "1"

   response.Cookies("user").expires = date+365
   response.Cookies("checkrem").expires = date+365
end if

  rs.close
set rs=nothing

%>
<table width="350" background="26.gif" cellpadding="0" cellspacing="20">
<tr>
<td>登陆成功：<%= session("user") %>欢迎你</td>
</tr>
<tr>
<td>
<%
if session("admin") = true then
%>
<a href="admin.asp">用户管理</a>
<%
end if
%>
<a href="admin1.asp?id=<%= session("id")%>">修改资料</a>
<a href="logout.asp">退出登陆</a>
</td>
</tr>
</table>
</body>
</html>

主题：高手，为什么引用文件后会不正常呢？？

回复列表（共3个回复）

我来回复

程序员工具箱 new

代码片段

本版新帖

主题：高手，为什么引用文件后会不正常呢？？

回复列表 （共3个回复）

我来回复

程序员工具箱 new

代码片段

本版新帖

回复列表（共3个回复）