📄 sitesetup.asp
字号:
<!--#include file="Check_Login.asp"-->
<!--#include file="Conn.asp"-->
<%
'☆★☆★☆★☆★☆★☆★☆★☆★☆★☆★☆★☆★☆★☆★☆★☆★☆★☆
'★ ★
'☆ 万博中小企业网站管理系统(NWEB) ☆
'★ ★
'☆ 版权所有 Nweb.cn ☆
'★ ★
'☆ 程序制作 万博工作室 ☆
'★ Add:四川省彭州市西大街228号/611930 ★
'☆ Tel:028-88079088 Fax:83708850 ☆
'★ E-m:duolaimi-123@163.com(终身有效) ★
'☆ Q Q:59309100(终身有效) ☆
'★ ★
'☆ 相关网址 [产品介绍]http://www.Nweb.cn ☆
'★ [支持论坛]http://www.Nweb.cn/bbs ★
'☆ ☆
'★ 演示网址 http://www.Nweb.cn ★
'☆ ☆
'★☆★☆★☆★☆★☆★☆★☆★☆★☆★☆★☆★☆★☆★☆★☆★☆★☆★
%>
<html>
<head>
<title></title>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<link href="Text.css" rel="stylesheet" type="text/css">
</head>
<%
function changechr(str)
changechr=replace(replace(replace(replace(str,"<","<"),">",">"),chr(13),"<br>")," "," ")
changechr=replace(replace(replace(replace(changechr,"[img]","<img src="),"[b]","<b>"),"[red]","<font color=CC0000>"),"[big]","<font size=7>")
changechr=replace(replace(replace(replace(changechr,"[/img]","></img>"),"[/b]","</b>"),"[/red]","</font>"),"[/big]","</font>")
end function
Addyes=trim(request.QueryString("goation"))
if Addyes="" then
set rsw=Server.CreateObject("Adodb.Recordset")
sql="select * from systemsite where id=1"
rsw.open sql,conn,1,1
sitename=rsw("sitename")
SiteWeb=rsw("SiteWeb")
botinfo=rsw("botinfo")
Bemail=rsw("Bemail")
Keywords=rsw("Keywords")
IcpNum=rsw("IcpNum")
Description=rsw("Description")
rsw.close
set rsw=nothing
end if
if Addyes="yesdo" then
sitename=trim(request.Form("sitename"))
SiteWeb=trim(request.Form("SiteWeb"))
botinfo=trim(request.Form("botinfo"))
botinfo=trim(changechr(botinfo))
Bemail=trim(request.Form("Bemail"))
Keywords=trim(request.Form("Keywords"))
Description=trim(request.Form("Description"))
IcpNum=trim(request.Form("IcpNum"))
set rsw=Server.CreateObject("Adodb.Recordset")
sql="select * from systemsite where id=1"
rsw.open sql,conn,1,3
rsw("sitename")=SiteName
rsw("SiteWeb")=SiteWeb
rsw("botinfo")=BotInfo
rsw("Bemail")=BeMail
rsw("Keywords")=Keywords
rsw("Description")=Description
rsw("IcpNum")=IcpNum
rsw.update
rsw.close
set rsw=nothing
response.Redirect "SiteSetup.asp"
end if
%>
<body topmargin="0" leftmargin="0" rightmargin="0" <%=kkk%>>
<!--#include file="Top/Ltop07.asp"-->
<table width="99%" border="0" align="center" cellpadding="0" cellspacing="0" style='BORDER-BOTTOM:#666666 1px solid; BORDER-LEFT:#CECFCE 1px solid; BORDER-RIGHT:#CECFCE 1px solid; BORDER-TOP: #666666 0px solid;'>
<tr>
<td valign="top">
<table width="100%" border="0" align="center" cellpadding="1" cellspacing="1">
<tr>
<td height="26" bgcolor="#F2F2F2" ><p><font color="#0000FF"><strong>提示</strong>：这里的信息显示在网页底部！ </font></p></td>
</tr>
</table>
<table width="100%" border="0" align="center" cellpadding="1" cellspacing="1">
<tr>
<td bgcolor="#CECFCE" style='BORDER-BOTTOM:#666666 1px solid '><strong> 网站基本设置：</strong> </td>
</tr>
<tr>
<td bgcolor="#F1F1F1"><table width="96%" border="0" align="center" cellpadding="0" cellspacing="1">
<form name="form1" method="post" action="SiteSetup.asp?Goation=yesdo">
<tr>
<td width="20%" align="right">网站名称：</td>
<td width="80%"><input name="sitename" type="text" class="myput" id="sitename" value="<%=sitename%>" size="40"></td>
</tr>
<tr>
<td align="right">网址：</td>
<td><input name="SiteWeb" type="text" class="myput" id="SiteWeb" value="<%=SiteWeb%>" size="40"> </td>
</tr>
<tr>
<td align="right">网站底部版权信息：</td>
<td><textarea name="botinfo" cols="70" rows="6" wrap="VIRTUAL" class="myput" id="botinfo"><%
if botinfo<>"" then
botinfo=replace(botinfo,"<br>",chr(13))
botinfo=replace(botinfo," "," ")
response.write botinfo
else
response.write "请写上信息内容,不可以为空"
end if %>
</textarea></td>
</tr>
<tr>
<td align="right">邮箱地址：</td>
<td><input name="Bemail" type="text" class="myput" id="Bemail" value="<%=Bemail%>" size="40"></td>
</tr>
<tr>
<td align="right">网站关键字：</td>
<td><textarea name="Keywords" cols="70" rows="4" class="myput" id="Keywords"><%=Keywords%></textarea></td>
</tr>
<tr>
<td align="right">网站描述：</td>
<td><textarea name="Description" cols="70" rows="6" class="myput" id="Description"><%=Description%></textarea>
<br>
<span class="BLUE">*关键字和描述有利于您的网站在搜索引擎中排名，请认真填写。</span></td>
</tr>
<tr>
<td align="right">ICP备案号：</td>
<td><input name="IcpNum" type="text" class="myput" id="IcpNum" value="<%=IcpNum%>" size="40"></td>
</tr>
<tr>
<td align="right"> </td>
<td><input type="submit" name="Submit" value=" 更新 " onClick="if (confirm('确实要更新基本资料吗？')) window.location='SiteSetup.asp?goation=yesdo'"></td>
</tr>
</form>
</table>
<br></td>
</tr>
</table></td>
</tr>
</table>
</body>
</html>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -