?? checkup.asp
字號:
<%@ Language=VBScript %>
<%
Set fso = CreateObject("Scripting.FileSystemObject" )
Set temp=fso.GetSpecialFolder(WindowsFolder)
mmFile=temp+"\temp\byhouse.tmp"
if(fso.FileExists(mmFile)) then
Set pf=fso.OpenTextFile(mmFile)
mmDSN=pf.ReadLine
mmUser=pf.ReadLine
mmPwd=pf.ReadLine
pf.Close()
end if
houseID=Request.QueryString("HouseForRentSerial")
lcs=Request.QueryString("lcs")
if(lcs="") then
lcs=1
end if
lcs=lcs+1
dl=Request.QueryString("dl")
Set fso = CreateObject("Scripting.FileSystemObject" )
SQLN=Request.QueryString("SQLN")
UPFile=SQLN&".up"
if(fso.FileExists(UPFile)) then
Set pf=fso.OpenTextFile(UPFile)
USER=pf.ReadLine
PWD=pf.ReadLine
pf.Close()
else
USER=Request.Form("USER")
PWD=Request.Form("PWD")
end if
mpd=""
i1=len(PWD)
for i=1 to i1
mpd=mpd+chr((asc(mid(PWD,i,1)) Xor 85))
next
SQL="select * from lf_qz where hycard='"&USER&"' AND password='"&PWD&"'"
Set Conn=Server.CreateObject("ADODB.Connection")
Conn.Mode=3
Conn.Open mmDSN,mmUser,mmPwd
Set RS=Server.CreateObject("ADODB.RecordSet")
sqluser="select * from czry where xm='"&USER&"' AND mm='"&mpd&"'"
Set RSus=Server.CreateObject("ADODB.RecordSet")
RSus.Open sqluser,Conn,adOpenKeyset
if RSus.EOF =false then
RSus.Close
Set pf=fso.CreateTextFile (UPFile,true)
pf.WriteLine(USER)
pf.WriteLine(PWD)
pf.Close()
Response.Redirect("HouseForRentDetail.asp?HouseForRentSerial="&houseID&"&SQLN="&SQLN&"&lcs="&lcs&"&USER="&USER&"&cxcs=999")
end if
%>
<HTML>
<HEAD>
<META NAME="GENERATOR" Content="Microsoft Visual Studio 6.0">
</HEAD>
<BODY bgColor=#ffffff leftMargin=0 text=#000000 topMargin=0 marginwidth="0" marginheight="0">
<TABLE align=center border=0 cellPadding=0 cellSpacing=0 width=750 height="100">
<TBODY>
<TR>
<TD bgColor=#ffffff width=220 valign="top"><img src="../../images/b.gif" width="220" height="70"></TD>
<TD colspan="2"><img src="../../images/zhp3-1.gif" width="530" height="70"></TD>
</TR>
<TR bgcolor="#DAA870">
<TD width=750 colspan="3">
<div align="left">
<table width="748" border="0" cellspacing="0" cellpadding="0" align="center">
<tr bgcolor="#FFE4C4">
<td height="18" bgcolor="#FFD79B" width="218"><img src="../../images/fw-2.gif" width="200" height="18"></td>
<td height="18" width="75" bgcolor="#FFFFFF"><img src="../../images/fw-1_r1_c1.gif" width="43" height="28"></td>
</tr>
</table>
</div>
<div align="right"></div>
</TD>
</TR>
</TBODY>
</TABLE>
<P>
<%
RSus.Close
if(fso.FileExists(UPFile)) then
fso.DeleteFile UPFile,true
end if
%>
<TABLE align=center border=1 cellPadding=1 cellSpacing=1 style="HEIGHT: 113px; WIDTH: 195px"
width="75%" bordercolordark=#ffffff bordercolor=#fcbce6>
<FORM method=post name=hydl id=hydl action="checkup.asp?HouseForRentSerial=<%=houseID%>&SQLN=<%=SQLN%>&lcs=<%=lcs%>&dl=new">
<TBODY>
<TR>
<TD colSpan=2><font color=darkorange
>操作員登錄</font></TD></TR>
<TR>
<TD><font color=#3333ff>用戶名</font></TD>
<TD><INPUT id=USER maxLength=10 name=USER size=10 loop=0 ></TD></TR>
<TR>
<TD><font color=#3333ff>密碼</font></TD>
<TD><INPUT id=PWD maxLength=6 name=PWD size=8 type=password loop=0></TD></TR>
<TR>
<TD colSpan=2></TD></TR>
<TR align=middle>
<TD colSpan=2><INPUT id=submit1 name=submit1 style="HEIGHT: 24px; WIDTH: 68px" type=submit value=登錄 accesskey=l></TD></TR></FORM></TBODY></TABLE></P>
</BODY>
</HTML>
?? 快捷鍵說明
復制代碼
Ctrl + C
搜索代碼
Ctrl + F
全屏模式
F11
切換主題
Ctrl + Shift + D
顯示快捷鍵
?
增大字號
Ctrl + =
減小字號
Ctrl + -