Code/Resource
Windows Develop
Linux-Unix program
Internet-Socket-Network
Web Server
Browser Client
Ftp Server
Ftp Client
Browser Plugins
Proxy Server
Email Server
Email Client
WEB Mail
Firewall-Security
Telnet Server
Telnet Client
ICQ-IM-Chat
Search Engine
Sniffer Package capture
Remote Control
xml-soap-webservice
P2P
WEB(ASP,PHP,...)
TCP/IP Stack
SNMP
Grid Computing
SilverLight
DNS
Cluster Service
Network Security
Communication-Mobile
Game Program
Editor
Multimedia program
Graph program
Compiler program
Compress-Decompress algrithms
Crypt_Decrypt algrithms
Mathimatics-Numerical algorithms
MultiLanguage
Disk/Storage
Java Develop
assembly language
Applications
Other systems
Database system
Embeded-SCM Develop
FlashMX/Flex
source in ebook
Delphi VCL
OS Develop
MiddleWare
MPI
MacOS develop
LabView
ELanguage
Software/Tools
E-Books
Artical/Document
NetBookRe.asp
Package: qiyeguanli.rar [view]
Upload User: ahxunteng
Upload Date: 2022-05-16
Package Size: 1606k
Code Size: 3k
Category:
WEB(ASP,PHP,...)
Development Platform:
VBScript
- <!--#include file="Include/System.asp"-->
- <%If Session("UserName")="" Then
- response.redirect"Server.asp"
- end if
- name=request.querystring("name")
- id=request.querystring("id")
- Set rs = Server.CreateObject("ADODB.Recordset")
- rs.Open "Select * from Book where id="&id, conn,3,3
- if rs("name")<>name then
- response.redirect "NetBook.asp"
- end if
- %>
- <html>
- <head>
- <title>∷<%=BsCompanyName%>∷</title>
- <meta http-equiv="Content-Type" content="text/html; charset=gb2312">
- <meta name="Author" content="haoxiao">
- <meta name="Contact" content="haoxiao@21cn.com">
- <meta name="Copyright" content="BOSSI">
- <meta name="Keywords" content="博識网络,BOSSI 公司(企业)网站管理系统">
- <meta name="Description" content="博識网络,BOSSI 公司(企业)网站管理系统">
- <link href="../Inc/Css.css" rel="stylesheet" type="text/css">
- <body bgcolor="#D9D9D9" leftmargin="0" topmargin="0" marginwidth="0" marginheight="0">
- <br>
- <TABLE width=90% height="400" align="center" cellPadding=4 cellSpacing=1 bgColor=#666666>
- <TR vAlign=top bgColor=#eeeeee>
- <TD width="100%" height="1" bgcolor="#999999">
- <%if rs("name")="管理员" then%>
- <font color="#FFFFFF">『公告标题』:</font>
- <%else%>
- <font color="#FFFFFF">『您的留言标题』:</font>
- <%end if%><font color="#006699"><%=rs("title")%></font>
- </TD>
- </TR>
- <TR vAlign=top bgColor=#eeeeee>
- <TD width="100%" height="366">
- <%if rs("name")="管理员" then%>
- 网站公告:
- <%else%>
- 您的留言内容:
- <%end if%>
- <div align="center">
- <center>
- <table border="0" width="98%" cellpadding="2">
- <tr>
- <td width="100%"> <%=rs("content")%> </td>
- </tr>
- </table>
- </center>
- <p align="right">(时间:<%=rs("time")%>) </div>
- <div align="center">
- <center>
- <table border="0" width="98%" cellpadding="2">
- <tr>
- <td width="100%">
- <%If rs("rebook")<>"" then%>
- <hr size="1"> <p style="word-spacing: 0; margin-top: 0; margin-bottom: 0"><b>给您的回复</b></p>
- <p style="word-spacing: 0; margin-top: 0; margin-bottom: 0"> </p>
- <p style="word-spacing: 0; margin-top: 0; margin-bottom: 0"><font color="#FF0000"><b><%=Session("UserName")%> 您好:</b></font></p>
- <p style="word-spacing: 0; margin-top: 0; margin-bottom: 0"><font color="#FF0000">
- <%=rs("rebook")%>
- <%else if rs("name")<>"管理员" Then%>
- 我们的工作人员还未回复您的留言,请耐心等待!
- <%end if%>
- <%End If%>
- </font></p></td>
- </tr>
- </table>
- </center>
- </div>
- </TD>
- </TR>
- <TR bgColor=#eeeeee>
- <TD width="530" height="26" bgcolor="#999999"><div align="center"
- ><input type="button" value="关闭" name="B5" onclick="window.close();" style="font-size: 9pt"></div></TD>
- </TR>
- </TABLE>
- </body>
- </html>
- <%
- rs.close
- set rs=nothing
- call CloseConn()
- %>