ljfb.asp 超文本多用户论坛程序 1.1 - ASP源码程序

www.gusucode.com > 超文本多用户论坛程序 1.1 > bbs/admin/ljfb.asp
    <!--#include file="hs.asp"-->
<%if request("act")=empty then%>
<body topmargin=50%>
<form action="ljfb.asp?act=true" method=post>
<div align="center">
<table cellpadding="0" cellspacing="0" width="348" style="border: 1px solid #3399FF" height="268" align=center>
	<tr>
		<td height="36" bgcolor="#F1F5FA" style="border-left-width: 1px; border-right-width: 1px; border-top-width: 1px; border-bottom-style: solid; border-bottom-width: 1px" colspan="2">
		<font color="#FF0000"><span style="font-size: 12px">&nbsp;连接名称:<input type="text" name="ljmc" size="20"> 
		*</span></font></td>
	</tr>
	<tr>
		<td height="36" width="93" bgcolor="#F1F5FA">
		<p align="left"><span style="font-size: 12px"><font color="#FF0000">&nbsp;连接url:</font></span></td>
		<td height="36" width="253" bgcolor="#F1F5FA">
		<font color="#FF0000"><span style="font-size: 12px">
		<input type="text" name="ljril" size="20"> *</span></font></td>
	</tr>
	<tr>
		<td height="34" width="93" bgcolor="#F1F5FA">
		<span style="font-size: 12px"><font color="#FF0000">&nbsp;连接logo:</font></span></td>
		<td height="34" width="253" bgcolor="#F1F5FA">
		<font color="#FF0000"><span style="font-size: 12px">
		<input type="text" name="ljlogo" size="20"></span></font></td>
	</tr>
	<tr>
		<td height="139" width="93" bgcolor="#F1F5FA">
		<span style="font-size: 12px"><font color="#FF0000">&nbsp;连接说明:</font></span></td>
		<td height="139" width="253" bgcolor="#F1F5FA">
		<span style="font-size: 12px"><font color="#FF0000">
		<textarea rows="6" name="ljsm" cols="38" style="color: #FF0000; font-size: 12px">20个字符以内</textarea></font></span></td>
	</tr>
	<tr>
		<td height="21" colspan="2" bgcolor="#F1F5FA">
		<p align="center"><input type="submit" value="提 交" name="B1">
		<input type="reset" value="重 置" name="B2"></td>
	</tr>
</table>
</div>
</form>
</body>
<%
else
function ReplaceBadChar(strChar)
	if strChar="" then
		ReplaceBadChar=""
	else
		ReplaceBadChar=replace(replace(replace(replace(replace(replace(replace(strChar,"'",""),"*",""),"?",""),"(",""),")",""),"<",""),".","")
	end if
end function

ljmc=ReplaceBadChar(request("ljmc"))
ljril=scriptgl(trim(request("ljril")))
ljlogo=trim(request("ljlogo"))
ljlogo=replace(ljlogo,"'","")
ljsm=ReplaceBadChar(request("ljsm"))

if ljmc=empty or ljril=empty then
response.write"<script language=vbscript>window.alert""连接名称和连接url不能为空!""</script>"
response.write"<script language=vbscript>window.location=""ljfb.asp""</script>"
response.end
end if


sql="insert into zwlike(ljmc,ljril,ljlogo,ljsm,ltbh)values('"&ljmc&"','"&ljril&"','"&ljlogo&"','"&ljsm&"','"&ltbh&"')"
conn.execute(sql)
%>
<script language=vbscript>
<!--
window.alert"连接添加成功!"
window.close
-->
</script>
<%
dbclose
end if
%>