?? jladd.asp
字號:
<%
'網絡022班孫超的畢業設計
'網絡022班孫超的畢業設計
dim name,comid
name = Request("com")
comid = Request("comid")
%>
<HTML>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312" />
<style type="text/css">
<!--
.style1 {font-size: 14px}
.style2 {font-size: 16px}
-->
</style>
<BODY BGCOLOR="LightYellow">
<!-- #include file="../conn.asp" -->
<%
if session("user")="" then
Response.write("<center>使用錯誤,請先登陸")
Response.End
end if
%>
<%
dim rs,rs1,sql
Set rs=Server.CreateObject("Adodb.RecordSet")
sql="select * from jl"
rs.Open sql,conn,1,3
ID = Session("id")
set Rs1 = Conn.Execute("select * from userinfo where user='"&session("user") &"'")
if rs1.eof then
Response.write("<center>您還沒有登記資料,不能操作,請先登記資料!")
Response.End
end if
dim add
Set add = Conn.Execute("Select user,com from jl where com='"&Request.QueryString("com")&"' and user='"&session("user")&"'")
If Not add.Eof then
response.write " <html><head><link rel='stylesheet' href='style.css'></head><body>"
response.write " <br><br><br>"
response.write " <table align='center' width='300' border='0' cellpadding='4' cellspacing='0' class='border'>"
response.write " <tr > "
response.write " <td class='title' colspan='2' height='15'> "
response.write " <div align='center'><span class='style1'>您已經投遞過了!</span></div>"
response.write " </td>"
response.write " </tr>"
response.write " <tr> "
response.write " <td class='tdbg' colspan='2' height='23'> "
response.write " <div align='center'><br><br>"
response.write " <span class='style1'>請選擇新的單位!!!</span><br><br>"
response.write " <a href='javascript:onclick=history.go(-1)'><span class='style2'>返回</span></a>"
response.write " <br><br></div></td>"
response.write " </tr></table></body></html>"
Response.End
End If
RS.AddNew Array("com", "user", "userid","comid","time"), _
Array(name, Session("user"), session("id"),comid,Now())
RS.Update
'關閉數據庫連接并釋放對象
RS.Close
Set RS = Nothing
Conn.Close
Set Conn = Nothing
%>
<CENTER>
<P class="style1">此人已經成功錄用
<P>
<P class="style1">返回查看錄用統計情況</P>
</CENTER>
</BODY>
</HTML>?? 快捷鍵說明
復制代碼
Ctrl + C
搜索代碼
Ctrl + F
全屏模式
F11
切換主題
Ctrl + Shift + D
顯示快捷鍵
?
增大字號
Ctrl + =
減小字號
Ctrl + -