?? homeadd.asp
字號:
<% Set hdobj = Server.CreateObject("HD.comOpen")'請確保此行在最前
Set hdos = Server.CreateObject("HD.studentA")'
Connkaa = hdobj.WeekaaConn()
%>
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312" />
<meta http-equiv="pragma" content="no-cache">
<title>紅笛軟件</title>
<style type="text/css">
<!--
.style3 {font-size: 12px}
.style4 {
font-size: 14px;
}
body,td,th {
font-size: 12px;
}
body {
margin-left: 0px;
margin-top: 0px;
margin-right: 0px;
margin-bottom: 0px;
}
a:link {
text-decoration: none;
}
a:visited {
text-decoration: none;
}
a:hover {
text-decoration: none;
}
a:active {
text-decoration: none;
}
.STYLE12 {font-family: "黑體"; font-size: 16px;}
.STYLE14 {color: #FF0000}
.STYLE15 {color: #000000}
-->
</style>
<script language=javascript>
function winclose() {
window.opener.location.reload();
window.close();
</script>
</head>
<body onmouseover="self.status='紅笛軟件[http://weekaa.com/red]';return true" onUnload="winclose();">
<%
dim stv,sqstv,La
tab="Home"
CaEE=""
ID=Request.QueryString("ID")
if Request.QueryString("action")="" then
Set stv = Server.CreateObject("ADODB.RecordSet")
sqstv = "Select * From [sets] where TB='"&tab&"'"
stv.Open Sqstv,Connkaa,1,3
If ID<>"" and Request.QueryString("de")<>"" then
Set stu = Server.CreateObject("ADODB.RecordSet")
sqstu = "Select * From [Home] where ID="&ID
stu.Open Sqstu,Connkaa,1,3
Ua=stu("a")
Ub=stu("b")
Uc=stu("c")
Ud=stu("d")
Ue=stu("e")
Uf=stu("f")
Ug=stu("g")
Uh=stu("h")
Ui=stu("i")
Uj=stu("j")
Uk=stu("k")
Ul=stu("l")
Um=stu("m")
Un=stu("n")
Uo=stu("o")
Up=stu("p")
Uq=stu("q")
Ur=stu("r")
end if
%>
<form name="form1" method="post" action="?ID=<%=ID%>&CaEE=<%=Ue%>&Ua=<%=Ua%>&action=action">
<table width="800" border="0" align="center" cellpadding="0" cellspacing="0" bordercolor="#0033cc">
<tr>
<td height="28" align="center" background="../Image/bg01.jpg" class="STYLE12 STYLE15"> </td>
</tr>
<tr>
<td><table width="100%" border="1" cellpadding="0" cellspacing="0" bordercolor="#E8EBEE">
<tr align="center" bgcolor="#F1F3F5">
<td height="35" colspan="6" bgcolor="#FFFFFF" class="style3"><span class="STYLE12 STYLE15">添 加 或 修 改 房 屋</span></td>
</tr>
<tr align="center" bgcolor="#F1F3F5">
<td width="146" height="25" bgcolor="#FFFFFF" class="style3"><%=stv("a")%></td>
<td width="141" bgcolor="#FFFFFF" class="style3"><%=stv("b")%></td>
<td width="126" bgcolor="#FFFFFF" class="style3"><%=stv("c")%></td>
<td width="123" bgcolor="#FFFFFF" class="style3"><%=stv("d")%></td>
<td width="123" bgcolor="#FFFFFF" class="style3"><%=stv("e")%></td>
<td width="127" bgcolor="#FFFFFF" class="style3"><%=stv("f")%></td>
</tr>
<tr align="center" valign="bottom" bgcolor="#FFFFFF">
<td height="30" valign="middle"><input name="a" type="text" id="a" value="<%=Ua%>" size="12"></td>
<td valign="middle"><input name="b" type="text" id="b" value="<%=Ub%>" size="12"></td>
<td valign="middle"><input name="c" type="text" id="c" value="<%=Uc%>" size="10"></td>
<td valign="middle"><input name="d" type="text" id="d" value="<%=Ud%>" size="10"></td>
<td valign="middle"><input name="e" type="text" id="e" value="<%=Ue%>" size="10"></td>
<td valign="middle"><input name="f" type="text" id="f" value="<%=Uf%>" size="10"></td>
</tr>
<tr align="center" valign="bottom" bgcolor="#FFFFFF">
<td height="35" colspan="6" valign="middle"><input type="submit" name="Submit" value="保 存"></td>
</tr>
</table></td>
</tr>
<tr>
<td height="28" align="center" background="../Image/bg01.jpg"> </td>
</tr>
</table></form>
<%
else
if ID<>"" then
ID=request.QueryString("ID")
Ua=request.QueryString("Ua")
a=trim(request.form("a"))
LUa=len(Ua)
LUa=LUa+1
if a<>Ua then
Set ro = Server.CreateObject("ADODB.RecordSet")
sqlo = "Select * From [HomeIO] where a like '%"&Ua&"%'"
ro.Open Sqlo,Connkaa,1,3
do while not ro.eof
roa=ro("a")
L=LUa
if mid(roa,1,1)="L" then
L=L+1
end if
roaA=mid(roa,L)
if mid(roa,1,1)="L" then
roaA="L" & a & roaA
else
roaA=a & roaA
end if
ro("a")=roaA
ro.update
ro.movenext
loop
Set rp = Server.CreateObject("ADODB.RecordSet")
sqlp = "Select * From [student] where f like '%"&Ua&"%'"
rp.Open Sqlp,Connkaa,1,3
do while not rp.eof
roa=rp("f")
L=LUa
if mid(roa,1,1)="L" then
L=L+1
end if
roaA=mid(roa,L)
if mid(roa,1,1)="L" then
roaA="L" & a & roaA
else
roaA=a & roaA
end if
rp("f")=roaA
rp.update
rp.movenext
loop
Set rq = Server.CreateObject("ADODB.RecordSet")
sqlq = "Select * From [HomeEQ] where a like '%"&Ua&"%'"
rq.Open Sqlq,Connkaa,1,3
do while not rq.eof
roa=rq("a")
L=LUa
roaA=mid(roa,L)
roaA=a & roaA
rq("a")=roaA
rq.update
rq.movenext
loop
Set rn = Server.CreateObject("ADODB.RecordSet")
sqln = "Select * From [HomeNO] where a like '%"&Ua&"%'"
rn.Open Sqln,Connkaa,1,3
do while not rn.eof
roa=rn("a")
L=LUa
roaA=mid(roa,L)
roaA=a & roaA
rn("a")=roaA
rn.update
rn.movenext
loop
end if
end if
call hdobj.AddL("Home","l",6)
end if
%>
</body>
</html>
?? 快捷鍵說明
復制代碼
Ctrl + C
搜索代碼
Ctrl + F
全屏模式
F11
切換主題
Ctrl + Shift + D
顯示快捷鍵
?
增大字號
Ctrl + =
減小字號
Ctrl + -