📄 admin_tempmakeaboutuser.asp

📁 功能强大首发! 演示地址:http://jsice.com QQ:3300828 运行环境： Internet Information Server 5.x or 6.0 （ii
💻 ASP
字号:
<!-- #include file="../conn.asp" -->
<!--#include file="../inc/config.asp"-->
<!-- #include file='session.asp' -->
<link href='css.css' rel='stylesheet' type='text/css'>
<%
id=CheckSql(request("id"))
CheckSqlnum(id)
if id="" then
response.Redirect 'adminmain.asp'
response.End
end if
id=int(id)
set rstemp=server.createobject("adodb.recordset")
	sql="select Page_user from Template where id="&id&""
	rstemp.open sql,connTemp,1,1
pencat1=rstemp("Page_user")
rstemp.close
set rstemp=nothing

Function makeuser()

pencat0="<!-- #include file='conn.asp' --><"
pencat0=pencat0&"%Stats=""会员专区 - 会员注册 - Powered By JsIceWeb""%"
pencat0=pencat0&"><!-- #include file='head.asp' -->"
pencat2="<!-- #include file='bottom.asp' -->"
pencat=pencat0&pencat1&pencat2
user_left="<table cellspacing='0' cellpadding='0' width='100%' border='0' align='center'><tr><td colspan='2' align='center'>注册步骤</td></tr>"
user_left=user_left&"<tr><td height='24'>√</td><td>服务条款和声明</td></tr><tr><td height='24'></td><td>填写注册资料</td></tr>"
user_left=user_left&"<tr><td height='24'></td><td>反馈注册信息</td></tr><tr><td height='24'></td><td>完成注册</td></tr></table>"
pencat = replace(pencat,"{$userleft$}",user_left)
pencat = replace(pencat,"{$usermain$}","<!-- #include file='UserInc/user.asp' -->")


file=server.mappath( "../user.asp" )

Set fso = Server.CreateObject("Scripting.FileSystemObject")
Set fout = fso.Createtextfile(file,true)
fout.writeline pencat
fout.close
set fout=nothing
set fso=nothing
Response.Write "<br><font color='red'><B>&nbsp;&nbsp;user.asp&nbsp;&nbsp;生成成功！！</B></font><br>"
pencat=""
pencat0=""
pencat2=""
user_left=""
End Function
'----------------------------------------------------------------------------------------------
Function makeuser_bookroom()

pencat0="<!-- #include file='conn.asp' --><"
pencat0=pencat0&"%Stats=""更新员控制中心 - 我的文集 - Powered By JsIceWeb""%"
pencat0=pencat0&"><!-- #include file='head.asp' -->"
pencat2="<!-- #include file='bottom.asp' -->"
pencat=pencat0&pencat1&pencat2

pencat = replace(pencat,"{$userleft$}","<!-- #include file='UserInc/user_left.asp' -->")
pencat = replace(pencat,"{$usermain$}","<!-- #include file='UserInc/user_bookroom.asp' -->")


file=server.mappath( "../user_bookroom.asp" )

Set fso = Server.CreateObject("Scripting.FileSystemObject")
Set fout = fso.Createtextfile(file,true)
fout.writeline pencat
fout.close
set fout=nothing
set fso=nothing
Response.Write "<br><font color='red'><B>&nbsp;&nbsp;user_bookroom.asp&nbsp;&nbsp;生成成功！！</B></font><br>"
pencat=""
pencat0=""
pencat2=""
End Function
'----------------------------------------------------------------------------------------------
Function makeuser_bookroomadd()

pencat0="<!-- #include file='conn.asp' --><"
pencat0=pencat0&"%Stats=""更新员控制中心 - 我的文集 - Powered By JsIceWeb""%"
pencat0=pencat0&"><!-- #include file='head.asp' -->"
pencat2="<!-- #include file='bottom.asp' -->"
pencat=pencat0&pencat1&pencat2

pencat = replace(pencat,"{$userleft$}","<!-- #include file='UserInc/user_left.asp' -->")
pencat = replace(pencat,"{$usermain$}","<!-- #include file='UserInc/user_bookroomadd.asp' -->")


file=server.mappath( "../user_bookroomadd.asp" )

Set fso = Server.CreateObject("Scripting.FileSystemObject")
Set fout = fso.Createtextfile(file,true)
fout.writeline pencat
fout.close
set fout=nothing
set fso=nothing
Response.Write "<br><font color='red'><B>&nbsp;&nbsp;user_bookroomadd.asp&nbsp;&nbsp;生成成功！！</B></font><br>"
pencat=""
pencat0=""
pencat2=""
End Function
'----------------------------------------------------------------------------------------------
Function makeuser_bookroomedit()

pencat0="<!-- #include file='conn.asp' --><"
pencat0=pencat0&"%Stats=""更新员控制中心 - 我的文集 - Powered By JsIceWeb""%"
pencat0=pencat0&"><!-- #include file='head.asp' -->"
pencat2="<!-- #include file='bottom.asp' -->"
pencat=pencat0&pencat1&pencat2

pencat = replace(pencat,"{$userleft$}","<!-- #include file='UserInc/user_left.asp' -->")
pencat = replace(pencat,"{$usermain$}","<!-- #include file='UserInc/user_bookroomedit.asp' -->")


file=server.mappath( "../user_bookroomedit.asp" )

Set fso = Server.CreateObject("Scripting.FileSystemObject")
Set fout = fso.Createtextfile(file,true)
fout.writeline pencat
fout.close
set fout=nothing
set fso=nothing
Response.Write "<br><font color='red'><B>&nbsp;&nbsp;user_bookroomedit.asp&nbsp;&nbsp;生成成功！！</B></font><br>"
pencat=""
pencat0=""
pencat2=""
End Function
'----------------------------------------------------------------------------------------------
Function makeuser_bookjieedit()

pencat0="<!-- #include file='conn.asp' --><"
pencat0=pencat0&"%Stats=""更新员控制中心 - 作品章节修改 - Powered By JsIceWeb""%"
pencat0=pencat0&"><!-- #include file='head.asp' -->"
pencat2="<!-- #include file='bottom.asp' -->"
pencat=pencat0&pencat1&pencat2

pencat = replace(pencat,"{$userleft$}","<!-- #include file='UserInc/user_left.asp' -->")
pencat = replace(pencat,"{$usermain$}","<!-- #include file='UserInc/user_bookjieedit.asp' -->")


file=server.mappath( "../user_bookjieedit.asp" )

Set fso = Server.CreateObject("Scripting.FileSystemObject")
Set fout = fso.Createtextfile(file,true)
fout.writeline pencat
fout.close
set fout=nothing
set fso=nothing
Response.Write "<br><font color='red'><B>&nbsp;&nbsp;user_bookjieedit.asp&nbsp;&nbsp;生成成功！！</B></font><br>"
pencat=""
pencat0=""
pencat2=""
End Function
'----------------------------------------------------------------------------------------------
Function makeuser_book()

pencat0="<!-- #include file='conn.asp' --><"
pencat0=pencat0&"%Stats=""更新员控制中心 - 作品管理 - Powered By JsIceWeb""%"
pencat0=pencat0&"><!-- #include file='head.asp' -->"
pencat2="<!-- #include file='bottom.asp' -->"
pencat=pencat0&pencat1&pencat2

pencat = replace(pencat,"{$userleft$}","<!-- #include file='UserInc/user_left.asp' -->")
pencat = replace(pencat,"{$usermain$}","<!-- #include file='UserInc/user_book.asp' -->")


file=server.mappath( "../user_book.asp" )

Set fso = Server.CreateObject("Scripting.FileSystemObject")
Set fout = fso.Createtextfile(file,true)
fout.writeline pencat
fout.close
set fout=nothing
set fso=nothing
Response.Write "<br><font color='red'><B>&nbsp;&nbsp;user_book.asp&nbsp;&nbsp;生成成功！！</B></font><br>"
pencat=""
pencat0=""
pencat2=""
End Function
'----------------------------------------------------------------------------------------------
Function makeuser_duanxin()

pencat0="<!-- #include file='conn.asp' --><"
pencat0=pencat0&"%Stats=""会员专区 - 站内短信 - Powered By JsIceWeb""%"
pencat0=pencat0&"><!-- #include file='head.asp' -->"
pencat2="<!-- #include file='bottom.asp' -->"
pencat=pencat0&pencat1&pencat2

pencat = replace(pencat,"{$userleft$}","<!-- #include file='UserInc/user_left.asp' -->")
pencat = replace(pencat,"{$usermain$}","<!-- #include file='UserInc/user_duanxin.asp' -->")


file=server.mappath( "../user_duanxin.asp" )

Set fso = Server.CreateObject("Scripting.FileSystemObject")
Set fout = fso.Createtextfile(file,true)
fout.writeline pencat
fout.close
set fout=nothing
set fso=nothing
Response.Write "<br><font color='red'><B>&nbsp;&nbsp;user_duanxin.asp&nbsp;&nbsp;生成成功！！</B></font><br>"
pencat=""
pencat0=""
pencat2=""
End Function
'----------------------------------------------------------------------------------------------
Function makeuser_index()

pencat0="<!-- #include file='conn.asp' --><"
pencat0=pencat0&"%Stats=""会员专区 - 会员控制中心 - Powered By JsIceWeb""%"
pencat0=pencat0&"><!-- #include file='head.asp' -->"
pencat2="<!-- #include file='bottom.asp' -->"
pencat=pencat0&pencat1&pencat2

pencat = replace(pencat,"{$userleft$}","<!-- #include file='UserInc/user_left.asp' -->")
pencat = replace(pencat,"{$usermain$}","<!-- #include file='UserInc/user_index.asp' -->")


file=server.mappath( "../user_index.asp" )

Set fso = Server.CreateObject("Scripting.FileSystemObject")
Set fout = fso.Createtextfile(file,true)
fout.writeline pencat
fout.close
set fout=nothing
set fso=nothing
Response.Write "<br><font color='red'><B>&nbsp;&nbsp;user_index.asp&nbsp;&nbsp;生成成功！！</B></font><br>"
pencat=""
pencat0=""
pencat2=""
End Function
'----------------------------------------------------------------------------------------------
Function makeuser_search()

pencat0="<!-- #include file='conn.asp' --><"
pencat0=pencat0&"%Stats=""会员专区 - 会员搜索 - Powered By JsIceWeb""%"
pencat0=pencat0&"><!-- #include file='head.asp' -->"
pencat2="<!-- #include file='bottom.asp' -->"
pencat=pencat0&pencat1&pencat2

pencat = replace(pencat,"{$userleft$}","<!-- #include file='UserInc/user_left.asp' -->")
pencat = replace(pencat,"{$usermain$}","<!-- #include file='UserInc/user_search.asp' -->")


file=server.mappath( "../user_search.asp" )

Set fso = Server.CreateObject("Scripting.FileSystemObject")
Set fout = fso.Createtextfile(file,true)
fout.writeline pencat
fout.close
set fout=nothing
set fso=nothing
Response.Write "<br><font color='red'><B>&nbsp;&nbsp;user_search.asp&nbsp;&nbsp;生成成功！！</B></font><br>"
pencat=""
pencat0=""
pencat2=""
End Function
Function makeuser_log()

pencat0="<!-- #include file='conn.asp' --><"
pencat0=pencat0&"%Stats=""会员专区 - 会员登陆 - Powered By JsIceWeb""%"
pencat0=pencat0&"><!-- #include file='head.asp' -->"
pencat2="<!-- #include file='bottom.asp' -->"
pencat=pencat0&pencat1&pencat2

pencat = replace(pencat,"{$userleft$}"," ")
pencat = replace(pencat,"{$usermain$}","<!-- #include file='UserInc/user_log.asp' -->")


file=server.mappath( "../user_log.asp" )

Set fso = Server.CreateObject("Scripting.FileSystemObject")
Set fout = fso.Createtextfile(file,true)
fout.writeline pencat
fout.close
set fout=nothing
set fso=nothing
Response.Write "<br><font color='red'><B>&nbsp;&nbsp;user_log.asp&nbsp;&nbsp;生成成功！！</B></font><br>"
pencat=""
pencat0=""
pencat2=""
End Function
'----------------------------------------------------------------------------------------------
makeuser()
makeuser_log()
makeuser_book()
makeuser_bookjieedit()
makeuser_bookroom()
makeuser_bookroomadd()
makeuser_bookroomedit()
makeuser_index()
makeuser_search()
%>
⌨️ 快捷键说明

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