show_meeting.asp

来自「直接解压即可 都是asp源码 超经典的啊」· ASP 代码 · 共 67 行

ASP
67
字号


<!--#include file="conn.asp"-->
<!--#include file="top.asp"-->
<% 
id=session("userid")
username=session("username")
if id="" or username="" then
response.Redirect("adminloginerror.asp")
end if
Set rs = Server.CreateObject("ADODB.Recordset")
if session("usertyp")="企业" then
sql="select * from userentreg where login_name='"& username &"' and id=" & id &""
end if
if session("usertyp")="个人" then
sql="select * from userpersreg where login_name='"& username &"' and id=" & id &""
end if
rs.open sql,conn,3,3
if rs.eof then
response.Redirect("adminloginerror.asp")
else
id=request.QueryString("id")
Set rs = Server.CreateObject("ADODB.Recordset")
sql="select * from reask where id="& id &""
rs.open sql,conn,3,3

%>
<html>

<title></title>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<link href="style.css" rel="stylesheet" type="text/css">
<script language="JavaScript" type="text/JavaScript">
<!--
function MM_callJS(jsStr) { //v2.0
  return eval(jsStr)
}
//-->
</script>

<body>
<table width="90%" border="0" align="center" cellpadding="0" cellspacing="0">
  <tr> 
    <td bordercolor="#FFFFFF">
    <table width="100%" border="1" cellpadding="3" cellspacing="0" bordercolor="#6687BA" style="border-collapse: collapse">
        <tr> 
          <td><span class="f1">信息标题:</span>&nbsp;<%=rs("reasktop")%></td>
          <td width="30%" class="f1"><%=rs("retime")%> </td>
        </tr>
        <tr> 
          <td colspan="2"><span class="f1">信息内容:</span><br>
            <br>&nbsp;&nbsp;&nbsp;&nbsp;<%=rs("reask")%></td>
        </tr>
      </table></td>
  </tr>
</table>
<div align="center"><br>
  <input name="Submit" type="submit" onClick="MM_callJS('history.go(-1)')" value="返回">
</div>
</body>
</html>
<% 
end if
rs.close
set rs=nothing
set conn=nothing
%>

⌨️ 快捷键说明

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