📄 admin_gb.asp

📁 蓝色WAP建站系统,WAP源码,更多请登陆http://xywap.cn
💻 ASP
📖 第 1 页 / 共 2 页
字号:
上一页 12
				</fieldset>
				<br>
				<%
				rsrep.movenext
				loop
				%>
				</td>
			</tr>
			<%
			rsrep.close
			set rsrep=nothing
			%>
			</tbody>
		</table>
		</td>
	</tr>
	</tbody>
</table>
<br>
<table cellspacing="1" cellpadding="4" align="center" class="tableborder" align="center">
	<tbody>
	<tr class="tablebody">
		<td align="center" class="td_title" colspan="2">管 理 员 回 复</td>
	</tr>
	<script>
	<!--
	function checkform()
		{ 
		document.addgb.Submit.disabled=true;
		document.addgb.Submit.value="已提交";
		return true;
		}
	-->
	</script>
	<form name="form1" method="post" action=""  onsubmit="javascript:submits();">
	<tr class="tablebody">
		<td width="13%" align="center">留言标题</td>
		<td width="87%"><%=rs("gb_title")%></td>
	</tr>
	<tr class="tablebody">
		<td align="center">回复姓名</td>
		<td><input type="text" name="rep_poster"  maxlength="20" size="20" value="<%=cur_nickname%>" readOnly>&nbsp;<button onClick="rep_poster.value='<%=cur_nickname%>'" title="当前管理员昵称"><%=cur_nickname%></button>&nbsp;<button onClick="rep_poster.value='<%=webboss%>'" title="网站站长"><%=webboss%></button></td>
	</tr>
	<tr class="tablebody">
		<td align="center">图 片</td>
		<td>
		<iframe src="wapls_upload.asp" scrolling="no" frameborder="0" height="25" width="100%"></iframe></td>
	</tr>
	<tr class="tablebody">
		<td align="center" valign="top">回复内容</td>
		<td><textarea name="content" style="overflow:auto;width:96%;"  rows="20" ></textarea>
</td>
	</tr>
	<tr class="tablebody">
		<td align="center" colspan="2">
		<input type="submit" name="submit" value="提交回复" onClick="if (Dvbbs_bTextMode!=1) {Dvbbs_setMode(1);}">&nbsp;&nbsp;&nbsp;
		<input type="reset" name="reset" value="清空重写">
		<input type="hidden" name="gb_id" value="<%=request.querystring("gb_id")%>">
		<input type="hidden" name="newrep" value="true"></td>
	</tr>
	</form>
	</tbody>
</table>
<%
rs.close
set rs=nothing
end sub
'==================================
'=过 程 名：editgb()
'=功    能：编辑留言
'==================================
sub editgb()
if request.form("editgb")="true" then
	if request.querystring("page")<>"" then
		curpage=cint(request.querystring("page"))
	else
		curpage=1
	end if
	gb_id=checksql("留言ID",request.form("id"),0,8)
	gb_poster=checksql("留言者",request.form("gb_poster"),1,50)
	gb_title=checksql("留言主题",request.form("gb_title"),1,50)
	gb_content=checksql("留言内容",request.form("gb_content"),1,500)
	sql="select * from wapls_gb where gb_id="&gb_id
	set rs=server.createobject("adodb.recordset")
	rs.open sql,conn,1,3
	rs("gb_content")=gb_content
	rs("gb_poster")=gb_poster
	rs("gb_title")=gb_title
	rs.update
	rs.close
	set rs=nothing
	response.redirect "?action=list&page="&curpage&""
end if
gb_id=checksql("留言ID",request.querystring("id"),0,8)
sql="select * from wapls_gb where gb_id="&gb_id
set rs=server.createobject("adodb.recordset")
rs.open sql,conn,1,1
%>
<!--#include file="wapls_ubb.asp"-->
<table cellspacing="1" cellpadding="4" class="tableborder" align="center">
	<form name="addgb" method="post" action="">
	<tr class="tablebody">
		<td class="td_title" colspan="2">修改留言</td>
	</tr>
	<tr class="tablebody">
		<td width="13%" align="center">留言作者</td>
		<td width="87%"><input type=text name="gb_poster" value="<%=rs("gb_poster")%>" size="20" maxlength="50"></td>
	</tr>
	<tr class="tablebody">
		<td align="center">发布时间</td>
		<td><input type="text" name="gb_date" value="<%=rs("gb_date")%>" disabled></td>
	</tr>
	<tr class="tablebody">
		<td align="center">留言标题</td>
		<td><input type=text size="50" name="gb_title" value="<%=rs("gb_title")%>" maxlength="50"></td>
	</tr>
	<tr class="tablebody">
		<td align="center" valign="top">留言内容</td>
		<td>
		<table border="0">
			<tr align="center">
				<td title="加粗"><img onClick=Cbold() type="button" name="Bold" src="images/ubbimages/bold.gif"></td>
				<td title="斜体"><img onClick=Citalic() type="button" name="Italic" src="images/ubbimages/italicize.gif"></td>
				<td title="下划线"><img onClick=Cunder() type="button" name="Underline" src="images/ubbimages/underline.gif"></td><td>|</td>
				<td title="链接"><img onClick=Curl() type="button" name="Link" src="images/ubbimages/url1.gif"></td>
				<td title="图片"><img onClick=Cimage() type="button" name="image" src="images/ubbimages/image.gif"></td>
				</tr>
		</table>
		<textarea name="gb_content" style="overflow:auto;width:96%;"  rows="20" ><%=Server.HTMLEncode(rs("gb_content"))%></textarea></td>
	</tr>
	<tr class="tablebody">
		<td  colspan="2" align="center" height="30">
		<input type="submit" name="submit" value="确定修改">
		<input type="hidden" name="id" value="<%=rs("gb_id")%>">
		<input type="hidden" name="editgb" value="true">
	</td>
	</tr>
	</form>
</table>
<%
rs.close
set rs=nothing
end sub
'==================================
'=过 程 名：editreply()
'=功    能：编辑回复
'==================================
sub editreply()
if request.form("editrep")="true" then
	if request.querystring("page")<>"" then
		curpage=cint(request.querystring("page"))
	else
		curpage=1
	end if
	rep_id=checksql("留言回复ID",request.form("id"),0,8)
	rep_poster=checksql("回复者",request.form("rep_poster"),1,20)
	rep_content=checksql("回复内容",request.form("content"),1,0)
	rep_content=replace(rep_content,replaceurl,"")
	sql="select * from wapls_gb_reply where rep_id="&rep_id
	set rs=server.createobject("adodb.recordset")
	rs.open sql,conn,1,3
	rs("rep_content")=rep_content
	rs("rep_poster")=trim(left(rep_poster,20))
	rs("rep_date")=now()
	rs.update
	rs.close
	set rs=nothing
	response.redirect "?action=list&page="&curpage&""
end if
rep_id=checksql("留言回复ID",request.querystring("id"),0,8)
sql="select * from wapls_gb_reply where rep_id="&rep_id
set rs=server.createobject("adodb.recordset")
rs.open sql,conn,1,1
%>
<table cellspacing="1" cellpadding="4" class="tableborder" align="center">
	<form name="form1" method="post" action=""  onsubmit="javascript:submits();">
	<tr class="tablebody">
		<td class="td_title" colspan="2">修改回复</td>
	</tr>
	<tr class="tablebody">
		<td width="13%" align="center">回复作者</td>
		<td><input type="text" name="rep_poster"  maxlength="20" size="20" value="<%=rs("rep_poster")%>" readOnly>&nbsp;<button onClick="rep_poster.value='<%=cur_nickname%>'" title="当前管理员昵称"><%=cur_nickname%></button>&nbsp;<button onClick="rep_poster.value='<%=webboss%>'" title="网站站长"><%=webboss%></button></td>
	</tr>
	<tr class="tablebody">
		<td align="center">发布时间</td>
		<td><input type="text" name="d_date" value="<%=rs("rep_date")%>" disabled></td>
	</tr>
	<tr class="tablebody">
		<td align="center" valign="top">回复内容</td>
		<td>
				<table border="0">
			<tr align="center">
				<td title="加粗"><img onClick=Cbold() type="button" name="Bold" src="images/ubbimages/bold.gif"></td>
				<td title="斜体"><img onClick=Citalic() type="button" name="Italic" src="images/ubbimages/italicize.gif"></td>
				<td title="下划线"><img onClick=Cunder() type="button" name="Underline" src="images/ubbimages/underline.gif"></td><td>|</td>
				<td title="链接"><img onClick=Curl() type="button" name="Link" src="images/ubbimages/url1.gif"></td>
				<td title="图片"><img onClick=Cimage() type="button" name="image" src="images/ubbimages/image.gif"></td>
				</tr>
		</table>
		<textarea name="content" style="overflow:auto;width:96%;"  rows="20"><%=rs("rep_content")%></textarea>
		
		</td>
	</tr>
	<tr class="tablebody">
		<td  colspan="2" align="center" height="30">
		<input type="submit" name="submit" value="确定修改" onClick="if (Dvbbs_bTextMode!=1) {Dvbbs_setMode(1);}">
		<input type="hidden" name="id" value="<%=rs("rep_id")%>">
		<input type="hidden" name="editrep" value="true">
	</td>
	</tr>
	</form>
</table>
<%
rs.close
set rs=nothing
end sub
'==================================
'=过 程 名：delreply()
'=功    能：删除回复
'==================================
sub delreply()
rep_id=checksql("留言回复ID",request.querystring("id"),0,8)
sql="select * from wapls_gb_reply where rep_id="&rep_id
set rs=server.createobject("adodb.recordset")
rs.open sql,conn,1,3
response.write "<script language=javascript>alert('删除回复成功！');location.href='admin_gb.asp'</script>"
rs.delete
rs.close
set rs=nothing
end sub
'==================================
'=过 程 名：delgb()
'=功    能：删除留言
'==================================
sub delgb()

gb_id=checksql("留言ID",request.querystring("id"),0,8)
sql="select * from wapls_gb where gb_id="&gb_id
set rs=server.createobject("adodb.recordset")
rs.open sql,conn,1,3
if not rs.eof then
	rs.delete
	rs.update
else
	response.write "<script language=javascript>alert('无此留言或留言ID错误！');location.href='admin_gb.asp'</script>"
	response.end
end if
rs.close
set rs=nothing
sql="select * from wapls_gb_reply where gb_id="&gb_id
set rs2=server.createobject("adodb.recordset")
rs2.open sql,conn,1,3
if not rs2.eof then
rs2.delete
rs2.update
end if
rs2.close
set rs2=nothing
response.write "<script language=javascript>alert('删除留言成功！');location.href='admin_gb.asp'</script>"
end sub
%>
<!--#include file="wapls_admin_bottom.asp"-->
上一页 12
⌨️ 快捷键说明

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