📄 add_webs.asp
字号:
<!--#include File="Pass.asp"-->
<% If Request("Action")="add" Then
if Request("YuMing")="" or Request("Title")="" or Request("Key")="" or Request("ShuoMing")="" or Request("NeiRong")="" or Request("Url")="" then
response.write("<script>alert(""都不能为空！"");history.back();</script>")
response.End
end if
Set rstuser = Server.CreateObject("ADODB.Recordset")
sqlstr = " select * from Ckk_Web where YuMing='"&Request("YuMing")&"'"
rstuser.Open sqlstr,dsn,1,1
if not rstuser.eof then
response.write("<script>alert(""这个域名已经存在！"");history.back();</script>")
response.End
end if
rstuser.close
set rstuser=nothing
Set rstuser = Server.CreateObject("ADODB.Recordset")
sqlstr = " select * from Ckk_Web where Title='"&Request("Title")&"'"
rstuser.Open sqlstr,dsn,1,1
if not rstuser.eof then
response.write("<script>alert(""这个网站已经存在！"");history.back();</script>")
response.End
end if
rstuser.close
set rstuser=nothing
sql="select * from Ckk_WEb"
set rs=server.createobject("adodb.recordset")
rs.open sql,dsn,3,2
rs.addnew
rs("YuMing")=LCase(Request("YuMing"))
rs("Title")=Request("Title")
rs("Key")=Request("Key")
rs("ShuoMing")=Request("ShuoMing")
rs("NeiRong")=Request("NeiRong")
rs("Url")=Request("Url")
rs.update
rs.close
'// 创建文件系统对象
Set fso=Server.CreateObject("Scripting.FileSystemObject")
Set htmlwrite=fso.OpenTextFile(Server.MapPath("../MB.asp"))
strOut=htmlwrite.ReadAll
htmlwrite.close
'// 用真实内容替换模板中的标记
strOut=Replace(strOut,"$YuMing$",Request("YuMing"))
strOut=Replace(strOut,"$Title$",Request("Title"))
strOut=Replace(strOut,"$Key$",Request("Key"))
strOut=Replace(strOut,"$ShuoMing$",Request("ShuoMing"))
strOut=Replace(strOut,"$NeiRong$",Request("NeiRong"))
strOut=Replace(strOut,"$Url$",Request("Url"))
'// 创建要生成的静态页
Set htmlwrite=fso.CreateTextFile(server.mappath("../"&Request("YuMing")&".asp"),true)
'// 写入网页内容
htmlwrite.WriteLine strOut
htmlwrite.close
'// 释放文件系统对象
set htmlwrite=Nothing
set fso=Nothing
response.write("<script>alert(""添加成功！"");location.href=""Web.asp"";</script>")
response.End
end if
%>
<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.0 Transitional//EN">
<HTML><HEAD><TITLE>管理中心</TITLE>
<META http-equiv=Content-Language content=zh-CN>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<LINK href="../Images/Admin/admin.css" type=text/css rel=stylesheet>
<META content="MSHTML 6.00.2900.2873" name=GENERATOR></HEAD>
<BODY text=#000000>
<%dim rstsj,sqlsj
set rstsj=server.createobject("adodb.recordset")
sqlsj="select * from Ckk_baiDu where Id="&Request("Id")
rstsj.open sqlsj,dsn,1,1
%>
<TABLE cellSpacing=0 cellPadding=0 width="99%" align=center border=0>
<TBODY>
<TR>
<TD height=5></TD>
</TR>
<TR>
<TD> <TABLE cellSpacing=0 cellPadding=0 width="100%" border=0>
<TBODY>
<TR>
<TD width=3 height=3><IMG height=3
src="Images/O_angle_up_left.gif" width=3></TD>
<TD width="100%" bgColor=#6795b4></TD>
<TD width=3><IMG height=3
src="Images/O_angle_up_right.gif"
width=3></TD>
</TR>
</TBODY>
</TABLE></TD>
</TR>
<TR>
<TD bgColor=#6795b4 height=25> </TD>
</TR>
<TR>
<TD class=form_border> <TABLE cellSpacing=0 cellPadding=0 width="100%" border=0>
<TBODY>
<TR>
<TD colSpan=3 height=5></TD>
</TR>
<TR>
<TD> </TD>
<TD> <TABLE class=form_in cellSpacing=0 cellPadding=0 width="100%"
border=0>
<TBODY>
<TR>
<TD height=5></TD>
</TR>
<TR>
<TD> <TABLE cellSpacing=0 cellPadding=0 width="100%" align=center
border=0>
<TBODY>
<TR>
<TH colSpan=2 height=25>添加WEB</TH>
</TR>
<TR>
<TD align=middle height=23><table width="100%" border="0" align="center" cellpadding="2" cellspacing="1" bgcolor="#1BA3D6">
<form method="post" action="?Action=add" name="myform" id="myform" OnSubmit="return checkkk()">
<tr bgcolor="#FFFFFF">
<td height="25"> 网站域名： </td>
<td> <input name="YuMing" type="text" id="Url5" size="30">
如： xxx.cixi.in （不需要HTTP://
域名为小写）</td>
</tr>
<tr bgcolor="#FFFFFF">
<td height="25"> 标题TITLE：</td>
<td><input name="Title" type="text" id="Url4" value="<%= rstsj("Key") %>" size="50">
</td>
</tr>
<tr bgcolor="#FFFFFF">
<td height="25"> 关键字KEY：</td>
<td><input name="Key" type="text" id="Url3" size="50">
用小写的,隔开关键字 </td>
</tr>
<tr bgcolor="#FFFFFF">
<td height="25"> 页面说明：</td>
<td><input name="ShuoMing" type="text" id="ShuoMing" size="50">
</td>
</tr>
<tr bgcolor="#FFFFFF">
<td height="25"> 跳转URL：</td>
<td><input name="Url" type="text" id="Url" size="50">
跳转的URL （不需要HTTP:// ）</td>
</tr>
<tr bgcolor="#FFFFFF">
<td height="25" colspan="2"> 页面内容：</td>
</tr>
<tr bgcolor="#FFFFFF">
<td height="25" colspan="2"> <input name="NeiRong" type="hidden" id="NeiRong2" value="<%=Server.HTMLEncode(rstsj("NeiRong")&"...")%>">
<IFRAME ID="eWebEditor1" SRC="../File/ewebeditor.asp?id=Neirong&style=s_coolblue" FRAMEBORDER="0" SCROLLING="no" WIDTH="100%" HEIGHT="300"></IFRAME>
</td>
</tr>
<tr bgcolor="#FFFFFF">
<td height="25" colspan="2"><div align="center">
<input type="submit" name="Submit" value="添加">
<input type="reset" name="Submit2" value="重置">
</div></td>
</tr>
</form>
</table></TD>
</TR>
</TBODY>
</TABLE></TD>
</TR>
<TR>
<TD height=5></TD>
</TR>
</TBODY>
</TABLE></TD>
<TD> </TD>
</TR>
<TR>
<TD> </TD>
<TD> </TD>
<TD> </TD>
</TR>
</TBODY>
</TABLE></TD>
</TR>
<TR>
<TD> <TABLE cellSpacing=0 cellPadding=0 width="100%" border=0>
<TBODY>
<TR>
<TD width=3><IMG height=3
src="../Images/Admin/O_angle_down_left.gif" width=3></TD>
<TD width="100%" background=../Images/Admin/O_angle_bottom.gif
height=3></TD>
<TD width=3><IMG height=3
src="../Images/Admin/O_angle_down_right.gif"
width=3></TD>
</TR>
</TBODY>
</TABLE></TD>
</TR>
</TBODY>
</TABLE>
</BODY></HTML>
<!--#include File="../Close.asp"-->⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -