<%
if trim(request("dotype"))="l" then
response.write ""
'response.Redirect "default.asp"
end if
if trim(request("dotype"))="uio" then
response.write ""
end if
'set conn=server.CreateObject ("ADODB.Connection")
'set rs=server.CreateObject("ADODB.RECORDSET")
'conn.open "Provider=SQLOLEDB.1;Password=100369;Persist Security Info=true;User ID=sa;Initial Catalog=test1;Data Source=(local)"
if request("kl")<>"" then
qq="select * from klll where kl='" & request("kl") & "'"
'Response.Write qq
rs.Open qq,conn,1,1,1
if not(rs.eof and rs.bof) then
if trim(request("sn"))<>trim(rs("sn")) then
response.write ""
'response.Redirect "default.asp"
end if
if trim(request("kl"))=trim(rs("kl")) and trim(request("sn"))=trim(rs("sn")) then
session("kl")=trim(request("kl"))
session("sn")=trim(request("sn"))
sql2="update klll set flag=1 where kl='" & session("kl") & "'"
'response.write sql2
rs2.open sql2,conn,1,1,1
sql3="update klll set rq=getdate() where kl='"& session("kl") &"'"
rs3.open sql3,conn,1,1,1
RESPONSE.Redirect("yz.asp")
end if
else
response.write ""
'response.Redirect "default.asp"
end if
end if
%>
黑龙江省生产力促进中心
