asp中传递、写入变量到数据库字段
一下是程序内容:*****************************************************************************...
一下是程序内容:
*******************************************************************************************
<%@LANGUAGE = VBScript.Encode%>
<!--#include file="Conn.asp"-->
<!--#include file="MD5.asp"-->
<%
'根据DDNS的用户名获取密码和IP地址
'DELPHI程序使用
dim rs,sql,username,userpass,regcode,active,password,founderr,msg
username=trim(request("name"))
password=MD5(trim(request("userpass")))
if username="" then
founderr=true
msg="必须输入DDNS用户名!"
if password="" then
founderr=true
msg="必须输入DDNS用户密码!"
cancel
else
founderr=false
end if
else
founderr=false
end if
if founderr=true then
response.write msg
else
set rs=Server.CreateObject("ADODB.RecordSet")
sql="select * from RR where UserName ='"&username&"'"
rs.open sql,conn,1,1
if rs.recordcount>0 then
if trim(rs("password"))=password then
if trim(rs("lastip"))<>""
then
response.write rs("lastip")
else
response.write "用户" &username & "尚未登录DDNS服务器!"
end if
else
response.write "DDNS用户密码错误!"
end if
else
response.write "DDNS用户名错误!"
end if
rs.close
set rs=nothing
end if
%>
*****************************************************************************************
问题:
其中lastip是一个客户端传递过来的ip地址,由这个页面的程序写入到access数据库中,在该数据库同一个表里还有个data的字段,也需要将这个ip信息写入进去,也就是说传递回来的数据是lastip,但我要同时写入到数据表RR里的lastip和data里去。请写出代码,正常运行立即送分感谢! 展开
*******************************************************************************************
<%@LANGUAGE = VBScript.Encode%>
<!--#include file="Conn.asp"-->
<!--#include file="MD5.asp"-->
<%
'根据DDNS的用户名获取密码和IP地址
'DELPHI程序使用
dim rs,sql,username,userpass,regcode,active,password,founderr,msg
username=trim(request("name"))
password=MD5(trim(request("userpass")))
if username="" then
founderr=true
msg="必须输入DDNS用户名!"
if password="" then
founderr=true
msg="必须输入DDNS用户密码!"
cancel
else
founderr=false
end if
else
founderr=false
end if
if founderr=true then
response.write msg
else
set rs=Server.CreateObject("ADODB.RecordSet")
sql="select * from RR where UserName ='"&username&"'"
rs.open sql,conn,1,1
if rs.recordcount>0 then
if trim(rs("password"))=password then
if trim(rs("lastip"))<>""
then
response.write rs("lastip")
else
response.write "用户" &username & "尚未登录DDNS服务器!"
end if
else
response.write "DDNS用户密码错误!"
end if
else
response.write "DDNS用户名错误!"
end if
rs.close
set rs=nothing
end if
%>
*****************************************************************************************
问题:
其中lastip是一个客户端传递过来的ip地址,由这个页面的程序写入到access数据库中,在该数据库同一个表里还有个data的字段,也需要将这个ip信息写入进去,也就是说传递回来的数据是lastip,但我要同时写入到数据表RR里的lastip和data里去。请写出代码,正常运行立即送分感谢! 展开
1个回答
推荐律师服务:
若未解决您的问题,请您详细描述您的问题,通过百度律临进行免费专业咨询