D
dotboy
Unregistered / Unconfirmed
GUEST, unregistred user!
前一页输入用户名与口令，在这一页验证用户名与口令是否正确，能否与数据库正确连接。与ORACLE连接时如何做变量替换呀？？？？？
<title>注册新用户</title>
<body>
<%
username=server.htmlencode(Trim(Request("username")))
userpass=server.htmlencode(Trim(Request("userpass")))
%>
<%
on error resume next
'连接数据库
set orasession=createobject("OracleInprocServer.XOraSession")
'关键是下一句出错了，不知如何将用户输入的变量进行替换。********************
set oradatabase=orasession.dbopendatabase('dbserver',username/userpass,0)
'出错处理
if err.number> 0 then
response.write"<h4> asp 错误控制 </h4> "
response.write"asp 错误来源:"&err.source &"<br> "
response.write"asp 错误代码:"&err.number&"<br> "
response.write"asp 错误说明:"&err.description&"<br> "
err.clear
response.write"<h4> ORACLE OLE 错误控制</h4> "
response.write"ORACLE 错误代码:"&OraSession.LastServerErr&"<br> "
response.write"ORACLE 错误说明:"&OraSession.LastServerErrText&"<br> "
else
'查询
sql="select * from basic_info"
set oradynaset=oradatabase.dbcreatedynaset(sql,0)
end if
%>
</body>
</html>
<title>注册新用户</title>
<body>
<%
username=server.htmlencode(Trim(Request("username")))
userpass=server.htmlencode(Trim(Request("userpass")))
%>
<%
on error resume next
'连接数据库
set orasession=createobject("OracleInprocServer.XOraSession")
'关键是下一句出错了，不知如何将用户输入的变量进行替换。********************
set oradatabase=orasession.dbopendatabase('dbserver',username/userpass,0)
'出错处理
if err.number> 0 then
response.write"<h4> asp 错误控制 </h4> "
response.write"asp 错误来源:"&err.source &"<br> "
response.write"asp 错误代码:"&err.number&"<br> "
response.write"asp 错误说明:"&err.description&"<br> "
err.clear
response.write"<h4> ORACLE OLE 错误控制</h4> "
response.write"ORACLE 错误代码:"&OraSession.LastServerErr&"<br> "
response.write"ORACLE 错误说明:"&OraSession.LastServerErrText&"<br> "
else
'查询
sql="select * from basic_info"
set oradynaset=oradatabase.dbcreatedynaset(sql,0)
end if
%>
</body>
</html>