makereg.asp

静态新闻系统 88red静态新闻系统1.0经过精心打造正式推出

<!--#include file="Session.asp"-->
<!--#include file="Conn.asp"-->
<%
'=======================================
'88red科技独立开发完成本程序，并提供免费技术支持与升级服务
'官方网站 http://www.88red.com    QQ:8375158  TEL:[phone]
'对于商业客户，本站提供细致周到的各项售后服务；对于盗版客户恕不提供，对于散播本程序者本站将追究其法律责任
'88red科技将陆续开发其他各种先进程序，例如企业网站建站系统等等，对老客户购买其他程序给予最大程度的优惠，欢迎洽谈
'=======================================
filename="../reg.htm"
filename3="../Template/common.htm"
set fso = Server.CreateObject("Scripting.FileSystemObject")
set f2= fso.OpenTextFile(server.mappath(""&filename3&""))
If Not fso.FileExists(server.mappath(""&filename3&"")) Then
mb1="通用模版common.htm不存在，请检查该路径文件。"
else
mb1=f2.ReadAll
End If
f2.close
set f2=nothing
set fso=nothing
set fso=server.createobject("scripting.filesystemobject")
set ffile=fso.createtextfile(server.mappath(""&filename&""))
reg="<table width=90% height=291 border=0 align=center cellpadding=0 cellspacing=1>"
reg=reg&"<form name=reg action=regsave.asp method=post><tr bgcolor=#FFFFFF><td>用户名:</td><td><input name=user type=text class=login>&nbsp;*</td></tr><tr bgcolor=#FFFFFF> <td>密码:</td><td><input name=pass type=password class=login>&nbsp;* </td></tr>"
reg=reg&"<tr bgcolor=#FFFFFF><td>确认密码:</td><td><input name=conpass type=password class=login>&nbsp;* </td></tr>"
reg=reg&"<tr bgcolor=#FFFFFF><td>找回密码问题:</td><td><input name=question type=text class=login>&nbsp;* </td></tr><tr bgcolor=#FFFFFF><td>找回密码答案:</td><td><input name=answer type=text class=login>&nbsp;* </td></tr>"
reg=reg&"<tr bgcolor=#FFFFFF> <td>真实姓名:</td><td><input name=truename type=text class=login>&nbsp;</td></tr>"
reg=reg&"<tr bgcolor=#FFFFFF><td>联系电话:</td><td><input name=phone type=text class=login>&nbsp;</td></tr>"
reg=reg&"<tr bgcolor=#FFFFFF> <td>E-mail:</td><td><input name=email type=text class=login></td></tr>"
reg=reg&"<tr bgcolor=#FFFFFF> <td>QQ:</td><td><input name=QQ type=text class=login></td></tr><tr bgcolor=#FFFFFF> <td>网站地址:</td><td><input name=url type=text class=login value=http:// size=30></td></tr>"
reg=reg&"<tr bgcolor=#FFFFFF><td colspan=2><div align=center><input type=submit name=submit1 class=border value=提交>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;<input type=reset name=reset1 class=border value=重写></div></td></tr></form></table>"
mb1=replace(mb1,"[biaozhi]",reg)
		
	
	title="用户注册"
	mb1=replace(mb1,"[title]",title)
	
	title1="用户注册"
	mb1=replace(mb1,"[title1]",title1)
	
	mb1=replace(mb1,"[title2]","")
	
	ffile.write""&mb1&""
	ffile.close
	set ffile=nothing
	set fso=nothing
	response.write"<script language=javascript>alert('用户注册页面生成');this.location.href='member.asp';</script>"

		%>