techeocogy__backward
所属分类 :浏览器
开发工具 :ASP
文件大小 :436KB
下载次数 :1
上传日期 :2017-10-03 11:06:09
上 传 者 :
Fzany
说明: 写了N次详细说明,总出错,这里不写了,很不错的程序,大家体验吧~
文件列表 :
XSLBlog\SLBlog\ChinaDownZ.com软件说明.txt (4104, 2005-03-21) XSLBlog\SLBlog\Database\ChinaDownZ.com软件说明.txt (4104, 2005-03-21) XSLBlog\SLBlog\Help\ChinaDownZ.com软件说明.txt (4104, 2005-03-21) St1ChinaDownZ.com软件说明.txt (4104, 2005-03-21) XSLBlog\SLBlog\安全手册.txt (2783, 2005-04-01) XSLBlog\SLBlog\安装必读.txt (3536, 2005-04-01) XSLBlog\SLBlog\更新说明.txt (3442, 2005-04-01) XSLBlog\SLBlog\商业注册.txt (3721, 2005-04-01) XSLBlog\SLBlog\升级说明.txt (2822, 2005-04-01) XSLBlog\SLBlog\特别感谢.txt (1973, 2005-04-01) XSLBlog\SLBlog\SLeditor\dialog\about.htm (1450, 2005-03-31) B7下载说明.htm (2587, 2004-11-05) XSLBlog\SLBlog\SLeditor\dialog\backimage.htm (10153, 2005-03-31) XSLBlog\SLBlog\SLeditor\dialog\charMap.htm (37842, 2005-03-31) XSLBlog\SLBlog\SLeditor\dialog\fieldset.htm (4721, 2005-03-31) XSLBlog\SLBlog\SLeditor\dialog\file.htm (5428, 2005-03-31) XSLBlog\SLBlog\SLeditor\dialog\findreplace.htm (4139, 2005-03-31) XSLBlog\SLBlog\SLeditor\dialog\flash.htm (5636, 2005-03-31) XSLBlog\SLBlog\SLeditor\dialog\fullscreen.htm (1086, 2005-03-31) XSLBlog\SLBlog\SLeditor\dialog\hyperlink.htm (4387, 2005-03-31) XSLBlog\SLBlog\SLeditor\dialog\iframe.htm (5213, 2005-03-31) XSLBlog\SLBlog\SLeditor\dialog\img.htm (11467, 2005-03-31) XSLBlog\SLBlog\SLeditor\dialog\map.htm (5939, 2005-03-31) XSLBlog\SLBlog\SLeditor\dialog\marquee.htm (2351, 2005-03-31) XSLBlog\SLBlog\SLeditor\dialog\media.htm (4925, 2005-03-31) XSLBlog\SLBlog\Help\Newtopic.htm (2766, 2005-03-31) XSLBlog\SLBlog\SLeditor\dialog\selcolor.htm (7553, 2005-03-31) XSLBlog\SLBlog\SLeditor\dialog\table.htm (14312, 2005-03-31) XSLBlog\SLBlog\SLeditor\dialog\tablecell.htm (10463, 2005-03-31) XSLBlog\SLBlog\SLeditor\dialog\tablecellsplit.htm (2627, 2005-03-31) XSLBlog\SLBlog\Help\UserTemplate.htm (6804, 2005-03-31) XSLBlog\SLBlog\Database\下载说明.htm (2587, 2004-11-05) XSLBlog\SLBlog\Help\下载说明.htm (2587, 2004-11-05) XSLBlog\SLBlog\下载说明.htm (2587, 2004-11-05) XSLBlog\SLBlog\Images\Admin\admin.css (2975, 2005-03-31) XSLBlog\SLBlog\Skins\SLBlog\main.css (1970, 2005-03-21) XSLBlog\SLBlog\Skins\libukai\main.css (2061, 2005-03-21) XSLBlog\SLBlog\Skins\SL3344\main.css (2061, 2005-03-21) XSLBlog\SLBlog\SLeditor\inc\MenuArea.css (1176, 2005-03-31) XSLBlog\SLBlog\SLeditor\inc\SLCSS.css (4361, 2005-03-31) ... ...
SLBlog -- 系统管理中心 -- 修改用户注册条款
<%
if trim(request("action"))="SaveModify" then
call SaveModify()
else
call Normal()
end if
sub Normal()
call ConnectionDatabase
set rs=conn.execute("select "&SLBlog_SiteInfo_ID&","&SLBlog_SiteInfo_RegBlogReadme&" from "&SLBlog_SiteInfo_Table)
%>
注意: 不能使用本站系统的限定字符和保留字符,否则自动被替换!
<%
call CloseDataBase
end sub
sub SaveModify()
Dim RegBlogReadme,SiteID
SiteID=Trim(Request.Form("SiteID"))
RegBlogReadme=Trim(Request.Form("edit"))
RegBlogReadme=deholdstr(debadstr(RegBlogReadme))
call ConnectionDatabase
sql="select "&SLBlog_SiteInfo_RegBlogReadme&" from "&SLBlog_SiteInfo_Table&" where "&SLBlog_SiteInfo_ID&"='"&SiteID&"'"
set rs=server.createobject("adodb.recordset")
rs.open sql,Conn,1,3
if Rs.eof or Rs.bof then
dim errmsg
errmsg=errmsg & "
调用系统参数错误 "
call WriteErrMsg(errmsg)
exit sub
end if
rs(SLBlog_SiteInfo_RegBlogReadme)=RegBlogReadme
rs.update
rs.close
set rs=nothing
dim SuccessMsg
SuccessMsg="
用户Blog注册条款成功写入数据库。 "
SuccessMsg=SuccessMsg &"
要使跟新马上生效,请更新系统缓存 ! "
call WriteSuccess(SuccessMsg)
end sub
%>
<%
sub WriteErrMsg(errmsg)
SLTemp= "
错误信息 " & vbcrlf
SLTemp=SLTemp & "
" & vbcrlf
SLTemp=SLTemp & "
"
SLTemp=SLTemp & "由于以下的原因更改基本设置错误! "
SLTemp=SLTemp & " " & errmsg & "【返 回 】
"
SLTemp=SLTemp & "
"
SLTemp=SLTemp & "" & vbcrlf
response.write SLTemp
end sub
sub WriteSuccess(SuccessMsg)
SLTemp= "
修改成功 " & vbcrlf
SLTemp=SLTemp & "
" & vbcrlf
SLTemp=SLTemp & "
"
SLTemp=SLTemp & "恭喜您成功更改基本设置! "
SLTemp=SLTemp & " " & SuccessMsg & "【还回用户管理首页 】
"
SLTemp=SLTemp & "
"
SLTemp=SLTemp & "" & vbcrlf
response.write SLTemp
end sub
%>
近期下载者 :
相关文件 :
收藏者 :