chuli.asp

来自「梦想世界虚拟社区」· ASP 代码 · 共 48 行

ASP
48
字号
<%
Set Cnn = Server.CreateObject("ADODB.Connection")
set rs = Server.CreateObject("ADODB.recordset")
set rs1 = Server.CreateObject("ADODB.recordset")
StrCnn = "Provider = Microsoft.Jet.OLEDB.4.0; Data Source="& Server.MapPath("..\base\dumm.mdb")
Cnn.Open StrCnn
%>
<html>
<head>
<title>无标题文档</title>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<link rel="stylesheet" href="in.css" type="text/css">
</head>

<body bgcolor="#000000" text="#000000">
<table width="450" border="0" cellspacing="0" cellpadding="0" align="center">
  <tr>
    <td>&nbsp;</td>
  </tr>
  <tr>
    <td>&nbsp;</td>
  </tr>
  <tr>
    <td align="center">&nbsp;<% rs.open "select 昵称 from 报名表 where 昵称 = '" & session ("name1") & "'",cnn %>
	<% if rs.eof then %>
      你还没有申请破案资格,<a href="shenqing.asp">点击这里</a>,申请破案资格,需交纳200C手续费!<% else %>
	  <% na = request ("na")
	     guocheng = request.form ("guocheng")
		 rs.close
		 sz = "'" & na &_
         "', '"& session ("name1") &_
         "', '"& guocheng &_
         "', '"& now() & "'"
		 rs1.open "insert into 案件结果(罪犯,答题人,分析过程,日期) values("&sz&")",cnn %>
      你的结果已成功递交,请等待最后结果的公布! 
      <% end if
		 cnn.close %></td>
  </tr>
  <tr>
    <td>&nbsp;</td>
  </tr>
  <tr>
    <td>&nbsp;</td>
  </tr>
</table>
</body>
</html>

⌨️ 快捷键说明

复制代码Ctrl + C
搜索代码Ctrl + F
全屏模式F11
增大字号Ctrl + =
减小字号Ctrl + -
显示快捷键?