?? guestadd.asp
字號:
sql = sql + " guest_pycode= '" & py & "',"
sql = sql + " guest_address= '"&address&"',"
sql = sql + " guest_tel= '"&tel&"',"
sql = sql + " guest_fax= '"&fax&"',"
sql = sql + " guest_idcard= '"&idcard&"',"
sql = sql + " guest_takecode= '"&takecode&"',"
sql = sql + " guest_email= '"&email&"',"
sql = sql + " guest_addtime= '"&t&"',"
sql = sql + " guest_lasttime= '"&t&"',"
sql = sql + " guest_city= '"&city&"',"
sql = sql + " guest_contact= '"&contact&"',"
sql = sql + " guest_beizu= '"&beizu&"'"
sql = sql + " WHERE guest_id = " + curid
conn.execute sql
if err.number <> 0 then
rs7.close
set rs7 = nothing
call closedatabase
if debug = 1 then
response.write "無法保存,數據庫操作出錯:" + err.description
Response.Write "錯誤程序：" & Err.Source & "<br>"
else
Response.Write "運行出現異常，請稍后再試"
end if
Response.End
else
'response.write "<center>記錄已經更新到數據庫。</center>"
rs7.close
set rs7 = nothing
'call closedatabase
response.write "<script language=javascript>"
Response.Write "alert(""記錄已經添加到數據庫！"");"
if closed <> 0 then
Response.Write "opener.location.reload();window.close();"
end if
Response.Write "</script>"
'Response.End
end if
else
rs7.close
set rs7 = nothing
call closedatabase
response.write "<script language=javascript>"
Response.Write "alert(""該領貨人已經存在！"");history.back();</script>"
Response.End
end if
else
call closedatabase
Response.Write "您沒有權限做此步操作，想要獲得更多權限，請與超級管理員聯系！"
Response.End
end if
rs_guest.close
set rs_guest = nothing
end if
end if
dim rs, rs1, sql1, strtype, strvalue
set rs8=server.CreateObject("ADODB.recordset")
sql = "SELECT * FROM guest where guest_companyid = "&newcompanyid&" and guest_flag = 1 order by guest_id desc"
rs8.open sql, conn, 3, 2
if err.number <> 0 then
rs8.Close
set rs8 = nothing
call closedatabase
if debug = 1 then
response.write "無法保存,數據庫操作出錯:" + err.description
Response.Write "錯誤程序：" & Err.Source & "<br>"
else
Response.Write "運行出現異常，請稍后再試"
end if
Response.End
else
if rs8.eof and rs8.bof then
response.write "<center>沒有記錄</center>"
else
sql = "select company_name from company where company_id = "&newcompanyid&""
set rs_company = conn.execute(sql)
company_name = rs_company("company_name")
rs_company.close
set rs_company = nothing
%>
<table border='1' width=100% align='center' cellspacing='0' cellpadding='0' bordercolorlight='#000000'bordercolordark='#FFFFFF'bgcolor='#DADBFC'>
<tr>
<td colspan=6 align=center bgcolor=red><b><font color=yellow><%Response.Write company_name%> 領貨人信息管理</font></b></td>
</tr>
<tr bgcolor=#0000A0>
<td align=center><font color=white>領貨人編號</font></td>
<td align=center><font color=white>領貨人名稱</font></td>
<td align=center><font color=white>電話</font></td>
<td align=center><font color=white>證件號</font></td>
<td align=center><font color=white>操作</font></td></tr>
<%
dim curpage, i
if request("page")="" then
curpage = 1
else
curpage = clng(request("page"))
end if
rs8.pagesize = 5
rs8.absolutepage = curpage
for i = 1 to rs8.pagesize
guest_code = trim(rs8("guest_code"))
guest_user = trim(rs8("guest_user"))
guest_tel = trim(rs8("guest_tel"))
guest_idcard = trim(rs8("guest_idcard"))
guest_takecode = trim(rs8("guest_takecode"))
%>
<tr>
<td align=center>
<%
if guest_code = "" then
Response.Write " "
else
Response.Write guest_code&" "
end if
%>
</td>
<td align=center>
<%
if guest_user = "" then
Response.Write " "
else
Response.Write guest_user
end if
%>
</td>
<td align=center>
<%
if guest_tel = "" then
Response.Write " "
else
Response.Write guest_tel
end if
%></td>
<td align=center>
<%
if guest_idcard = "" then
Response.Write " "
else
Response.Write guest_idcard
end if
%></td>
<td align=center><a href='guestadd.asp?action=edit&companyid=<%=newcompanyid%>&id=<%= rs8("guest_id") %>&page=<%=curpage%>&closed=<%=closed%>'>編輯</a></td>
</tr>
<% rs8.movenext
if rs8.eof then
i = i + 1
exit for
end if
next %>
</table>
<%
response.write "<p align=center>"
response.write "第" + cstr(curpage) + "頁/總" + cstr(rs8.pagecount) + "頁 "
response.write "本頁" + cstr(i-1) + "條/總" + cstr(rs8.recordcount) + "條 "
if curpage = 1 then
response.write "首頁 前頁 "
else
response.write "<a href='guestadd.asp?page=1&companyid="&newcompanyid&"'>首頁</a> <a href='guestadd.asp?page=" + cstr(curpage-1) + "&companyid="&newcompanyid&"'>前頁</a> "
end if
if curpage = rs8.pagecount then
response.write "后頁 末頁"
else
response.write "<a href='guestadd.asp?page=" + cstr(curpage+1) + "&companyid="&newcompanyid&"'>后頁</a> <a href='guestadd.asp?page=" + cstr(rs8.pagecount) + "&companyid="&newcompanyid&"'>末頁</a>"
end if
End If
end if
rs8.Close
set rs8 = nothing
%>
<hr size=1>
<%
if bedit then
if curid = "" then
call closedatabase
Response.Redirect "guestadd.asp?companyid="&newcompanyid
Response.End
end if
sql = "SELECT * FROM guest WHERE guest_id = "&curid&""
'set rs9 = conn.execute(sql)
set rs9 = server.CreateObject("adodb.recordset")
rs9.open sql,conn,3,2
if rs9.EOF then
bedit = false
end if
end if
%>
<form action="guestadd.asp" method="POST" name="guest">
<p align=center><b><% If bedit then %>編輯：<% Else %>添加：<% End If %></b></p>
<div id="conadd" style="HEIGHT: 32px; LEFT: 67px; POSITION: absolute; TOP: 409px; WIDTH: 144px; Z-INDEX: 1"><APPLET code=code.class height=0 id=py style="HEIGHT: 16px; LEFT: 0px; TOP: 0px; VISIBILITY: hidden; WIDTH: 14px" width=0 VIEWASTEXT>
</APPLET>
</div>
<table align=center cellspacing="0" cellpadding="2" border="0">
<tr>
<td width="25%"><b>領貨人編號：</b></td>
<td width="75%">
<%if bedit then%>
<input type="Text" name="code" size="25" value='<%response.write rs9("guest_code")%>' maxlength='9' onkeydown="javascript:if(event.keyCode==13)event.keyCode=9"></td>
<%else %>
<input type="Text" name="code" size="25" value='' maxlength='9' onkeydown="javascript:if(event.keyCode==13)event.keyCode=9"></td>
<%end if%>
</tr>
<tr>
<td width="25%"><b>領貨人名稱：</b></td>
<td width="75%">
<%if bedit then%>
<input type="Text" name="user" size="25" value='<%response.write rs9("guest_user")%>' maxlength='25' onblur="javascript:GetPy();" onkeydown="javascript:if(event.keyCode==13)event.keyCode=9">**</td>
<%else %>
<input type="Text" name="user" size="25" value='' maxlength='25' onblur="javascript:GetPy();" onkeydown="javascript:if(event.keyCode==13)event.keyCode=9">**</td>
<%end if%>
</tr>
<tr>
<td width="25%"><b>拼音編碼：</b></td>
<td width="75%">
<%if bedit then%>
<input type="Text" name="py" size="25" value='<%response.write rs9("guest_pycode")%>' maxlength='20' onkeydown="javascript:if(event.keyCode==13)event.keyCode=9" >**</td>
<%else %>
<input type="Text" name="py" size="25" value='' maxlength='20' onkeydown="javascript:if(event.keyCode==13)event.keyCode=9">**</td>
<%end if%>
</tr>
<tr>
<td width="25%"><b>所在城市：</b></td>
<td width="75%">
<%if bedit then%>
<input type="Text" name="city" size="25" value='<%response.write trim(rs9("guest_city"))%>' maxlength='10' onkeydown="javascript:if(event.keyCode==13)event.keyCode=9">**</td>
<%else %>
<input type="Text" name="city" size="25" value='' maxlength='10' onkeydown="javascript:if(event.keyCode==13)event.keyCode=9">**</td>
<%end if%>
</tr>
<tr>
<td width="25%"><b>領貨人地址：</b></td>
<td width="75%">
<%if bedit then%>
<input type="Text" name="address" size="25" value='<%response.write trim(rs9("guest_address"))%>' maxlength='50' onkeydown="javascript:if(event.keyCode==13)event.keyCode=9"></td>
<%else %>
<input type="Text" name="address" size="25" value='' maxlength='50' onkeydown="javascript:if(event.keyCode==13)event.keyCode=9"></td>
<%end if%>
</tr>
<tr>
<td width="25%"><b>聯系人：</b></td>
<td width="75%">
<%if bedit then%>
<input type="Text" name="contact" size="25" value='<%response.write trim(rs9("guest_contact"))%>' maxlength='10' onkeydown="javascript:if(event.keyCode==13)event.keyCode=9"></td>
<%else %>
<input type="Text" name="contact" size="25" value='' maxlength='10' onkeydown="javascript:if(event.keyCode==13)event.keyCode=9"></td>
<%end if%>
</tr>
<tr>
<td width="25%"><b>聯系電話：</b></td>
<td width="75%">
<%if bedit then%>
<input type="Text" name="tel" size="25" value='<%response.write trim(rs9("guest_tel"))%>' maxlength='80' onkeydown="javascript:if(event.keyCode==13)event.keyCode=9"></td>
<%else %>
<input type="Text" name="tel" size="25" value='' maxlength='80' onkeydown="javascript:if(event.keyCode==13)event.keyCode=9"></td>
<%end if%>
</tr>
<tr>
<td width="25%"><b>傳真：</b></td>
<td width="75%">
<%if bedit then%>
<input type="Text" name="fax" size="25" value='<%response.write trim(rs9("guest_fax"))%>' maxlength='40' onkeydown="javascript:if(event.keyCode==13)event.keyCode=9"></td>
<%else %>
<input type="Text" name="fax" size="25" value='' maxlength='40' onkeydown="javascript:if(event.keyCode==13)event.keyCode=9"></td>
<%end if%>
</tr>
<tr>
<td width="25%"><b>證件號：</b></td>
<td width="75%">
<%if bedit then%>
<input type="Text" name="idcard" size="25" value='<%response.write trim(rs9("guest_idcard"))%>' maxlength='18' onkeydown="javascript:if(event.keyCode==13)event.keyCode=9"></td>
<%else %>
<input type="Text" name="idcard" size="25" value='' maxlength='18' onkeydown="javascript:if(event.keyCode==13)event.keyCode=9"></td>
<%end if%>
</tr>
<tr>
<td width="25%"><b>備注：</b></td>
<td width="75%">
<%if bedit then%>
<textarea class=smallarea name=beizu rows=3 cols=30 onkeydown="javascript:if(event.keyCode==13)event.keyCode=9"><%response.write trim(rs9("guest_beizu"))%></textarea>
</td>
<%else %>
<textarea class=smallarea name=beizu rows=3 cols=30 onkeydown="javascript:if(event.keyCode==13)event.keyCode=9"></textarea>
</td>
<%end if%>
</tr>
<%
'end if
if bedit then
rs9.close
set rs9 = nothing
end if
call closedatabase
%>
<tr><td align=center colspan="2">
<input type="Hidden" name="action" value='<% If bedit then%>editsave<% Else %>newsave<% End If %>'>
<% If bedit then %>
<input type="Hidden" name="id" value='<%= cstr(curid) %>'>
<% End If %>
<input type="Hidden" name="companyid" value='<%= newcompanyid %>'>
<input type="Hidden" name="closed" value='<%= closed %>'>
<input type="Hidden" name=<%= strtype %> value=<%= strvalue %>>
<input class=buttonface type="Submit" name="btnsave" value="保存">
<input class=buttonface type="Reset" value="重設"></td></tr>
</table>
</form>
<br><br>
</body>
</FORM>
</html>
?? 快捷鍵說明
復制代碼
Ctrl + C
搜索代碼
Ctrl + F
全屏模式
F11
切換主題
Ctrl + Shift + D
顯示快捷鍵
?
增大字號
Ctrl + =
減小字號
Ctrl + -