| |
| |
 |
|
|
<%
Call CreConn(Conn)
Action=FormatRequest(1,"Action",1,"")
Select Case Action
Case "Add"
Call Add()
Case "SaveAdd"
Call SaveAdd()
Case "Login"
Call Login()
Case "ChkLogin"
Call ChkLogin()
Case "EditPwd"
Call EditPwd()
Case "SavePwd"
Call SavePwd()
Case "LoginOut"
Call LoginOut()
Case "Reply"
Call Reply()
Case "SaveReply"
Call SaveReply()
Case "Del"
Call Del()
Case Else
Call Main()
End Select
Sub Main()
Page=FormatRequest(1,"Page",0,1)
If Page<=0 Then Page=1
PSize=10
TbName="Book_List"
GetCol="ID,UserName,Title,Content,AddDate,Reply,HomePage,EMail"
PCol="ID"
SortCol="ID"
StrW="IsShow=True"
CT=""
TCount=Conn.Execute("Select Count(ID) From Book_List Where IsShow=True")(0)
PCount=GetPageCount(TCount,PSize)
If Page>PCount And PCount>0 Then Page=PCount
PIndex=Page
Set Rs=Conn.Execute(GetPageList(TBName,GetCol,PCol,SortCol,1,StrW,PSize,PIndex))
If Not Rs.Eof Then
%>
| 签写留言
<%If Session("AdUser")="" Or IsNull(Session("AdUser")) Then%>
管理登录
<%Else%>
修改密码 退出登录
<%End If%>
|
|
|
|
|
<%
Do While Not Rs.Eof
%>
| 留言主题 |
<%=Rs(2)%> |
留言者:<%=Rs(1)%> |
留言时间:<%=Rs(4)%> |
| 留言内容 |
<%=Replace(Left(Rs(3),500),chr(10),"
")%> |
<%
TmpReply=Rs(5)
If Trim(TmpReply)<>"" Then
%>
| 管理员回复 |
<%=TmpReply%> |
<%End If
If Session("AdUser")<>"" Then
%>
| 留言管理 |
电子邮件:<%=Rs(7)%> |
回复留言 删除留言 |
<%End If%>
|
<%
Rs.MoveNext
Loop
%>
<%
If PCount>1 Then
Response.Write PageList(3,PCount,Page,CT)
Else
Response.Write "
"
End If
Else
Response.Write ""
End If
End Sub
Sub Add()
%>
<%
End Sub
Sub SaveAdd()
UserName=FormatRequest(2,"UserName",1,"")
EMail=FormatRequest(2,"EMail",1,"")
Title=FormatRequest(2,"Title",1,"")
Content=FormatRequest(2,"Content",1,"")
Conn.Execute("Insert Into Book_List(UserName,Title,Content,EMail,IP) Values('"&UserName&"','"&Title&"','"&Content&"','"&Email&"','"&Get_UserIp()&"')")
Call ShowErrMsg(1,"留言成功！","zxly.html")
End Sub
Sub Login()
%>
|
|
|
 |
| |
|
|
|
