📄 config.asp

📁 WEB2.0圈子交友平台,以用户影音创意和分享为主导, 为用户提供:圈子,个人空间,博客,话题,相册,分类信息,短信,交友等免费服务,致力打造中国第一套 WEB2.0交友系统开源网站.
💻 ASP
字号:
<%@language=vbscript%>
<!--#include file="../include/conn.asp"-->
<!--#include file="cook.asp"-->
<%
If Request("Action")="Edit" Then
cityname=request("cityname")
citytitle=request("citytitle")
cityurl=request("cityurl")
cityeurl=request("cityeurl")
cityusertk=request("cityusertk")
'OKsizepic=request("OKsizepic")
OKAr=request("OKAr")
OKsize=request("OKsize")
citysypkey=request("citysypkey")
cityypkey=request("cityypkey")
citydns=request("citydns")
dnskey=request("dnskey")
dnswww=request("dnswww")
if dnswww="" then dnswww=0
citymailsmtp=request("citymailsmtp")
citymaillog=request("citymaillog")
citymailpass=request("citymailpass")
citymaildns=request("citymaildns")
cityscayx=request("cityscayx")
if cityscayx="" then cityscayx="0,0"
cityabout=request("cityabout")
citycontact=request("citycontact")
conn.execute("update "&WebSqlType&"_config set "&WebSqlType&"_cityname='"&cityname&"'")
conn.execute("update "&WebSqlType&"_config set "&WebSqlType&"_citytitle='"&citytitle&"'")
conn.execute("update "&WebSqlType&"_config set "&WebSqlType&"_cityurl='"&cityurl&"'")
conn.execute("update "&WebSqlType&"_config set "&WebSqlType&"_cityeurl='"&cityeurl&"'")
conn.execute("update "&WebSqlType&"_config set "&WebSqlType&"_cityusertk='"&cityusertk&"'")
conn.execute("update "&WebSqlType&"_config set "&WebSqlType&"_OKsizepic='"&OKsizepic&"'")
conn.execute("update "&WebSqlType&"_config set "&WebSqlType&"_OKAr='"&OKAr&"'")
conn.execute("update "&WebSqlType&"_config set "&WebSqlType&"_OKsize='"&OKsize&"'")
conn.execute("update "&WebSqlType&"_config set "&WebSqlType&"_citysypkey='"&citysypkey&"'")
conn.execute("update "&WebSqlType&"_config set "&WebSqlType&"_cityypkey='"&cityypkey&"'")
conn.execute("update "&WebSqlType&"_config set "&WebSqlType&"_citydns='"&citydns&"'")
conn.execute("update "&WebSqlType&"_config set "&WebSqlType&"_dnskey='"&dnskey&"'")
conn.execute("update "&WebSqlType&"_config set "&WebSqlType&"_dnswww='"&dnswww&"'")
conn.execute("update "&WebSqlType&"_config set "&WebSqlType&"_citymailsmtp='"&citymailsmtp&"'")
conn.execute("update "&WebSqlType&"_config set "&WebSqlType&"_citymaillog='"&citymaillog&"'")
conn.execute("update "&WebSqlType&"_config set "&WebSqlType&"_citymailpass='"&citymailpass&"'")
conn.execute("update "&WebSqlType&"_config set "&WebSqlType&"_citymaildns='"&citymaildns&"'")
conn.execute("update "&WebSqlType&"_config set "&WebSqlType&"_cityscayx='"&cityscayx&"'")
conn.execute("update "&WebSqlType&"_config set "&WebSqlType&"_cityabout='"&cityabout&"'")
conn.execute("update "&WebSqlType&"_config set "&WebSqlType&"_citycontact='"&citycontact&"'")
 Response.Redirect "config.asp"
End If
 Response.Write"<LINK href='css.css' type=text/css rel=stylesheet>"
 Response.Write"<html><head>"
 Response.Write"<meta http-equiv='Content-Type' content='text/html; charset=gb2312'>"
 Response.Write"</head><body style='margin:5'>"
set rs = Server.CreateObject("ADODB.Recordset")
sql="select* from "&WebSqlType&"_config" 
rs.open sql,conn,1,1
citysypkey=split(rs(""&WebSqlType&"_citysypkey"),",")
cityypkey=split(rs(""&WebSqlType&"_cityypkey"),",")
cityscayx=split(rs(""&WebSqlType&"_cityscayx"),",")
 Response.Write"<table width='100%' height='0' border='0' align='center' cellpadding='5' cellspacing='1' bgcolor='#cccccc'>"
 Response.Write"<form name='form1' method='post' action='config.asp?Action=Edit'>"
 Response.Write"<tr bgcolor='#efefef'>"
 Response.Write"<td height='30' colspan=2>　<strong>基本信息设置：</strong></td></tr>"
 Response.Write"<tr bgcolor='#ffffff'><td width='22%' height='30' align='center'>网站名称</td>"
 Response.Write"<td width='78%'><input name='cityname' type='text' value='"&rs(""&WebSqlType&"_cityname")&"' size=30></td>"
 Response.Write"</tr><tr bgcolor='#ffffff'><td width='22%' height='30' align='center'>网站标题</td>"
 Response.Write"<td width='78%'><input name='citytitle' type='text' value='"&rs(""&WebSqlType&"_citytitle")&"' size=50></td>"
 Response.Write"</tr><tr bgcolor='#ffffff'><td width='22%' height='30' align='center'>网站地址</td>"
 Response.Write"<td width='78%'><input name='cityurl' type='text' value='"&rs(""&WebSqlType&"_cityurl")&"' size=50>"
 Response.Write" 结尾请加 /</td></tr><tr bgcolor='#ffffff'><td width='22%' height='30' align='center'>网址缩写</td>"
 Response.Write"<td width='78%'><input name='cityeurl' type='text' value='"&rs(""&WebSqlType&"_cityeurl")&"' size=40>"
 Response.Write"</td></tr><tr bgcolor='#ffffff'><td width='22%' height='100' align='center'>会员注册条款</td>"
 Response.Write"<td width='78%'><textarea name='cityusertk' cols='90' rows='6'>"&rs(""&WebSqlType&"_cityusertk")&"</textarea> </td>"
 Response.Write"</tr><tr bgcolor='#efefef'><td height='30' colspan=2>　<strong>SEO排名设置：：</strong></td></tr>"
 Response.Write"<tr bgcolor='#ffffff'><td width='22%' align='center'> <div align='right'>网站描述：</div></td>"
 Response.Write"<td width='78%'><textarea name='OKAr' cols='90' rows='5'>"&rs(""&WebSqlType&"_OKAr")&"</textarea> </td>"
 Response.Write"</tr><tr bgcolor='#ffffff'><td align='center'><div align='right'>网站关键词：</div></td><td>"
 Response.Write" <textarea name='OKsize' cols='90' rows='5'>"&rs(""&WebSqlType&"_OKsize")&"</textarea> </td></tr>"
 Response.Write"<tr bgcolor='#efefef'><td height='30' colspan=2>　<strong>运行信息设置：</strong></td></tr>"
 Response.Write"<tr bgcolor='#ffffff'><td height='30' align='center'> 会员积分赠送: </td><td>请填写数字</td></tr>"
 Response.Write"<tr bgcolor='#ffffff'><td height='30' align='center'>&nbsp;</td><td>"
 Response.Write"<input name='citysypkey' type='text' id='citysypkey' value='"&trim(citysypkey(0))&"' size='5'>"
 Response.Write"&nbsp;会员注册增送积分　</td></tr><tr bgcolor='#ffffff'>"
 Response.Write"<td width='22%' height='30' align='center'>&nbsp;</td><td width='78%'>"
 Response.Write"<input name='citysypkey' type='text' id='citysypkey' value='"&trim(citysypkey(1))&"' size='5'>"
 Response.Write"&nbsp;发布信息增送积分(博客、相片、话题、招贴、活动)　	  </td></tr><tr bgcolor='#ffffff'>"
 Response.Write"<td width='22%' height='30' align='center'>&nbsp;</td><td width='78%'>"
 Response.Write"<input name='citysypkey' type='text' id='citysypkey' size='5' value='"&trim(citysypkey(2))&"'>"
 Response.Write"&nbsp;邀请好友增送积分　</td></tr><tr bgcolor='#ffffff'>"
 Response.Write"<td width='22%' height='30' align='center'>&nbsp;</td><td width='78%'>"
 Response.Write"<input name='citysypkey' type='text' id='citysypkey' size='5' value='"&trim(citysypkey(3))&"'>"
 Response.Write"&nbsp;Email验证增送积分　</td></tr><tr bgcolor='#ffffff'><td width='22%' height='30' align='center'>&nbsp;</td>"
 Response.Write"<td width='78%'> <input name='citysypkey' type='text' id='citysypkey' size='5' value='"&trim(citysypkey(4))&"'>"
 Response.Write"&nbsp;登录一次增送积分　</td></tr><tr bgcolor='#ffffff'>"
 Response.Write"<td width='22%' height='30' align='center'>会员扣分规则</td><td width='78%'>"
 Response.Write"<input name='citysypkey' type='text' id='citysypkey' size='5' value='"&trim(citysypkey(5))&"'>"
 Response.Write"&nbsp;创建圈子扣分</td></tr><tr bgcolor='#ffffff'><td width='22%' height='30' align='center'>&nbsp;</td>"
 Response.Write"<td width='78%'><input name='citysypkey' type='text' id='citysypkey' size='5' value='"&trim(citysypkey(6))&"'>"
 Response.Write"&nbsp;删除信息扣分(博客、相片、话题、招贴、活动)</td></tr><tr bgcolor='#ffffff'>"
 Response.Write"<td width='22%' height='30' align='center'>&nbsp;</td><td width='78%'>"
 Response.Write"<input name='citysypkey' type='text' id='citysypkey' size='5' value='"&trim(citysypkey(7))&"'>"
 Response.Write"&nbsp;信息置顶扣分</td></tr><tr bgcolor='#ffffff'><td height='30' align='center'>圈子积分规则:</td>"
 Response.Write"<td>&nbsp;</td></tr><tr bgcolor='#ffffff'><td height='30' align='center'>&nbsp;</td>"
 Response.Write"<td><input name='cityypkey' type='text' id='cityypkey' size='5' value='"&trim(cityypkey(0))&"'>"
 Response.Write"&nbsp;创建圈子增送积分　</td></tr><tr bgcolor='#ffffff'><td width='22%' height='30' align='center'>&nbsp;</td>"
 Response.Write"<td width='78%'><input name='cityypkey' type='text' id='cityypkey' size='5' value='"&trim(cityypkey(1))&"'>"
 Response.Write"&nbsp;加入成员增送积分　</td></tr><tr bgcolor='#ffffff'><td width='22%' height='30' align='center'>&nbsp;</td>"
 Response.Write"<td width='78%'><input name='cityypkey' type='text' id='cityypkey' size='5' value='"&trim(cityypkey(2))&"'>"
 Response.Write"&nbsp;发布信息增送积分　(博客、相片、话题、招贴、活动)</td></tr><tr bgcolor='#ffffff'>"
 Response.Write"<td width='22%' height='30' align='center'>&nbsp;</td><td width='78%'>"
 Response.Write"<input name='cityypkey' type='text' id='cityypkey' size='5' value='"&trim(cityypkey(3))&"'>&nbsp;退出成员扣除积分</td>"
 Response.Write"</tr><tr bgcolor='#ffffff'><td width='22%' height='30' align='center'>&nbsp;</td><td width='78%'>"
 Response.Write"<input name='cityypkey' type='text' id='cityypkey' size='5' value='"&trim(cityypkey(4))&"'>"
 Response.Write"&nbsp;删除信息扣除积分 (博客、相片、话题、招贴、活动)</td></tr><tr bgcolor='#ffffff'>"
 Response.Write"<td width='22%' height='30' align='center'>是否支持二级域名</td>"
 Response.Write"<td width='78%'><input name='dnskey' type='radio' value=1 "
 if rs(""&WebSqlType&"_dnskey")=1 then
 Response.Write"checked"
 end if
 Response.Write" style='border:0'>	   开 "
 Response.Write"<input name='dnskey' type='radio' value=0 "
 if rs(""&WebSqlType&"_dnskey")=0 then
 Response.Write"checked"
  end if
 Response.Write" style='border:0'> "
 Response.Write"  关　二级域名后缀	   <input name='citydns' type='text' value='"&rs(""&WebSqlType&"_citydns")&"' size=25>"
 Response.Write"&nbsp;请在前面加上 '.'</td>"
 Response.Write"</tr><tr bgcolor='#ffffff'><td width='22%' height='30' align='center'>圈子二级域名形式</td>"
 Response.Write"<td width='78%'><input type='checkbox' name='dnswww' value='1' "
 if rs(""&WebSqlType&"_dnswww")=1 then
 Response.Write" checked"
 end if
 Response.Write" class=radio> 选择则支持 http://www.my."&WebSqlType&".Com，否则为 http://my."&WebSqlType&".Com</td></tr>"
 Response.Write"<tr bgcolor='#efefef'><td height='30' colspan=2>　<strong>系统邮件设置(服务器须 JMAIL 支持)：：</strong></td>"
 Response.Write"</tr><tr bgcolor='#ffffff'><td width='22%' height='30' align='center'>SMTP服务器</td>"
 Response.Write"<td width='78%'><input name='citymailsmtp' type='text' value='"&rs(""&WebSqlType&"_citymailsmtp")&"' size=30>"
 Response.Write"&nbsp;用来发送邮件的SMTP服务器,此信息不设置将不能发送邮件</td></tr><tr bgcolor='#ffffff'>"
 Response.Write"<td width='22%' height='30' align='center'>登录用户名</td><td width='78%'>"
 Response.Write"<input name='citymaillog' type='text' value='"&rs(""&WebSqlType&"_citymaillog")&"' size=20>"
 Response.Write"&nbsp;此信息不设置将不能发送邮件</td></tr><tr bgcolor='#ffffff'><td width='22%' height='30' align='center'>"
 Response.Write"登录密码</td><td width='78%'><input name='citymailpass' type='password' value='"&rs(""&WebSqlType&"_citymailpass")&"'"
 Response.Write" size=20>&nbsp;此信息不设置将不能发送邮件</td></tr><tr bgcolor='#ffffff'>"
 Response.Write"<td width='22%' height='30' align='center'>邮件域名</td>"
 Response.Write"<td width='78%'><input name='citymaildns' type='text' value='"&rs(""&WebSqlType&"_citymaildns")&"' size=20>"
 Response.Write"&nbsp;如果用&quot;my@"&WebSqlType&".com&quot;这样用户名登录时,请指明"&WebSqlType&".com,否则不能发送邮件</td>"
 Response.Write"</tr><tr bgcolor='#ffffff'><td width='22%' height='30' align='center'>新用户注册是否发E_mail</td>"
 Response.Write"<td width='78%'><input name='cityscayx' type='checkbox' value='1' class=radio "
 if cityscayx(0)=1 then
 Response.Write" checked "
 end if
 Response.Write"> 选择则用户注册后将发送欢迎邮件</td></tr><tr bgcolor='#ffffff'>"
 Response.Write"<td width='22%' height='30' align='center'>新用户注册是否发站内消息</td>"
 Response.Write"<td width='78%'><input name='cityscayx' type='checkbox' value='2' class=radio "
 if cityscayx(1)=2 then
 Response.Write" checked "
 end if
 Response.Write">选择则新用户注册发送站内消息</td></tr><tr bgcolor='#ffffff'>"
 Response.Write"<td width='22%' height='100' align='center'>Email内容设置</td>"
 Response.Write"<td width='78%'><textarea name='cityabout' cols='90' rows='6'>"&rs(""&WebSqlType&"_cityabout")&"</textarea> </td>"
 Response.Write"</tr><tr bgcolor='#ffffff'><td width='22%' height='100' align='center'>站内消息内容</td>"
 Response.Write"<td width='78%'><textarea name='citycontact' cols='90' rows='6'>"&rs(""&WebSqlType&"_citycontact")&"</textarea> </td>"
 Response.Write"</tr><tr bgcolor='#ffffff' align='center'>"
 Response.Write"<td height='30' colspan=2><input type='submit' name='Submit' value='确认修改' class=input1></td></tr></form>"
rs.close
set rs=nothing
 Response.Write"</table></body></html>"
%>
⌨️ 快捷键说明

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