kfindex.asp

本源代码为终点小说连载系统 v1.15 Build 0430 SQL清风修改版,欢迎大家下载,学习与交流

<%
dim UserID,UserName
UserID=session("UserID")
UserName=session("UserName")
%>						<table cellspacing="1" cellpadding="4" width="100%" bgcolor="#ffffff" border="0">
							<tr bgcolor="#588fc7">
								<td colspan="4" class="head"><font color="#FFFFFF">客服在线告全体用户书</font></td>
							</tr>
							<tr bgcolor="#ffffff">
								<td colspan="4" align="left" style="PADDING-left: 8px;PADDING-right: 8px;PADDING-BOTTOM: 5px;PADDING-top: 8px;line-height:150%;">
								为了更好的为所有读者服务，本站网客服专组正式成立，全年无休24小时在线，凡是在站内使用功能时出现问题，或者对站内功能在阅读《使用指南》后仍然不了解，可以以在线留言、邮件等多种方式进行咨询，本站全体客服人员必将给您满意的答复。在发表留言前，必须是注册用户，并且处于登录状态。如果您还没用注册，请点击注册 
								.</td>
							</tr>
							<tr bgcolor="#588fc7">
								<td colspan="4" class="head"><font color="#FFFFFF">客服在线留言咨询</font></td>
							</tr>
							<tr bgcolor="#ffffff">
								<td colspan="4" align="left" style="PADDING-left: 8px;PADDING-right: 8px;PADDING-BOTTOM: 5px;PADDING-top: 8px;line-height:150%;">
								<table width="100%" height="100%" border="0" align="center" cellpadding="0" cellspacing="2" bgcolor="#FFFFFF">
									<form action="save.asp?info=gbook" method="post" id="form1" name="form1">
										<tr bgcolor="#F7F7F7">
											<td width="20%" height="34" align="right" valign="middle" bgcolor="#F7F7F7">
											留言主题：<br>
											</td>
											<td width="80%"><select name="guest_class" size="1" class='form'>
<%
set rs3=server.createobject("adodb.recordset")
	sql="select * from guest_class"
	rs3.open sql,conn,1,1
	Do while not rs3.eof
%>
                <option value="<%=rs3("id")%>" name=guest_class><%=rs3("guest_class")%></option>
<%
	rs3.MoveNext
	Loop
	rs3.close
set rs3=nothing
%>
                                                    </select> 
											<input name="title" type="text" id="title" size="38" class="form" maxlength="30"> 
											***</td>
										</tr>
										<tr bgcolor="#F7F7F7">
											<td width="20%" height="34" align="right" valign="middle" bgcolor="#F7F7F7">
											留言内容：<br>
											</td>
											<td width="80%">
											<textarea name="content" cols="90" rows="10" class="form" id="content"></textarea> 
											***</td>
										</tr>
										<tr align="center" valign="bottom" bgcolor="#F7F7F7">
											<td height="34" colspan="2">
											<input type="submit" class="button" value="提 交"> 
											　 
											<input type="reset" class="button" value="重 置"></td>
										</tr>
									</form>
								</table>
								</td>
							</tr>
							<tr bgcolor="#588fc7">
								<td colspan="4" class="head"><font color="#FFFFFF">用户留言列表</font></td>
							</tr>
							<tr bgcolor="#ffffff">
								<td colspan="4" align="left" style="PADDING-left: 8px;PADDING-right: 8px;PADDING-BOTTOM: 5px;PADDING-top: 8px;line-height:150%;">
								<%
If username="" or userID="" or IsNull(WordID) Then
	Response.Write ("您还没有登陆或者登陆超时")
else%> <% 
Set rs1 = Server.CreateObject("ADODB.Recordset")
sql="select * from [guest] where userid="&userid&" order by id desc"
rs1.open sql,conn,1,1
if rs1.eof and rs1.bof then
response.write "你没有发表过留言"
else
%><%do while not rs1.eof%>
								<table width="100%" height="166" border="0" cellpadding="0" cellspacing="0" bgcolor="#F7F7F7">
									<tr>
										<td height="23" valign="top" bgcolor="#F7F7F7" class="bottom">
										<table width="97%" height="23" border="0" align="center" cellpadding="0" cellspacing="0">
											<tr>
												<td width="75%" valign="middle">
												主题： <% =unHtml(rs1("title")) %></td>
												<td width="25%">时间： <% =rs1("time") %></td>
											</tr>
										</table>
										</td>
									</tr>
									<tr>
										<td valign="top" class="bottom">
										<table width="95%" height="119" border="0" align="center" cellpadding="0" cellspacing="0" style="table-layout:fixed;word-break:break-all">
											<tr>
												<td height="5" align="left" valign="top">
												</td>
											</tr>
											<tr>
												<td height="100%" align="left" valign="top">
												<font color="#008080"><% =unHtml(rs1("content")) %></font></td>
											</tr>
											<tr>
												<td height="18" align="left" valign="top">
												</td>
											</tr>
											<tr>
												<td height="100%" valign="middle" bgcolor="#FFFFFF">
												<% if rs1("reply")<>"" then%>
												<span class="style2">
												<font class="red">管理员回复于</font>：</span>
												<% =rs1("date") %> <br>
												<font color="#000080"><% =unHtml(rs1("reply")) %>
												<%
                          else
                          response.write ("客服正忙还没有回复你的留言")
                          end if %> </font></td>
											</tr>
										</table>
										</td>
									</tr>
								</table><hr color="#000000" size="1">
								<% 
rs1.movenext
loop
end if 
rs1.close
set rs1=nothing
End If
 %> </td>
							</tr>
						</table>