admin_inputfile.asp

AspEase Auction System Ver2.0/动易拍卖系统 Ver2.0

<!-- #include file="conn.asp" -->
<!-- #include file="inc/info.asp" -->
<!-- #include file="inc/const.asp" --> 
<%
'=========================================================
'Copyright (C) 2003-2004 AspEase.Com. All rights reserved.
'Web: http://www.aspease.com
'Email: [e-mail],[e-mail]
'=========================================================
'
'FileName: admin_Inputfile.asp
'Version:2.0
'UpdateTime: 2004-10-6 19:28:29
'Script Written by www.aspease.com 
'=========================================================
admheader
	call main()	
admfooter
sub main()
response.Write("<table width=""95%"" border=""0"" cellspacing=""1"" cellpadding=""3""  align=center class=""tableBorder"">")
response.Write("<tr> ")
response.Write("    <th width=""100%"" class=""tableHeaderText"" colspan=2 height=25>站点初始信息设置 </th>")
response.Write("</tr>")
response.Write("<tr><td class=""row"" colspan=2>")
response.Write("      <p><B>注意</B>：在这里您可以调整部分站点信息提示，其中部分功能可能需要FSO的支持，如果不支持FSO文件写入功能，请直接手动修改相关文件。 ")
response.Write("    </td></tr>")
response.Write("<tr><td class=""row"">")
response.Write("<B>操作选项</B></td>")
response.Write("    <td class=""row""><a href=""admin_inputfile.asp"">注册条款修改</a> | <a href=""?action=regemail"">注册邮件内容修改</a> ")
response.Write("      | <a href=""?action=closenobids"">无人竞标商品（结束）邮件修改</a> | <a href=""?action=outbidnotice"">超过出价邮件修改</a><br>")
response.Write("      <a href=""?action=bidsuccess"">出价成功邮件信息修改</a> | <a href=""?action=bidclose"">给卖家交易成功邮件</a></td>")
response.Write("</tr>")
response.Write("</table>")
response.Write("<p></p>")
select case request("action")
case "regemail"
	call regemail()
case "closenobids"
	call closenobids()
case "outbidnotice"
	call outbidnotice()
case "bidsuccess"
	call bidsuccess()
case "bidclose"
	call bidclose()
case else
	call reg()
end select
end sub
function fupdate(pvalue,paction,ptitle)
dim objFSO
dim fdata
dim objCountFile
on error resume next
Set objFSO = Server.CreateObject("Scripting.FileSystemObject")
if request("save")="" then
	Set objCountFile = objFSO.OpenTextFile(Server.MapPath("inc/txt/"&pvalue),1,True)
	If Not objCountFile.AtEndOfStream Then fdata = objCountFile.ReadAll
else
	fdata=request("fdata")
	Set objCountFile=objFSO.CreateTextFile(Server.MapPath("inc/txt/"&pvalue),True)
	objCountFile.Write fdata
	if err.number<>0 then
		response.write "您的空间不支持FSO，请同您的空间商联系，或者查看相关权限设置<br>"&Err.Description&""
		response.end
	else
		response.write "修改成功"
		response.end
	end if
end if
objCountFile.Close
Set objCountFile=Nothing
Set objFSO = Nothing
response.Write("<table width=""95%"" border=""0"" cellspacing=""1"" cellpadding=""3""  align=center class=""tableBorder"">")
response.Write("<form method=post action=""?action=")
response.Write(paction)
response.Write(""">")
response.Write("<tr> ")
response.Write("	<th width=""100%"" class=""tableHeaderText"" height=25>" & ptitle & "</th>")
response.Write("</tr>")
response.Write("<tr>")
response.Write("   <td class=""row""> 注意：文件将被保存在你安装目录下的<B>inc/txt/" & pvalue & "</B>里，如果您的空间不支持<font color=""red"">FSO</font>，请直接编辑该文件！内容中带有%%的部分不要进行编辑</td>")
response.Write("</tr>")
response.Write("<tr>")
response.Write("   <td class=""row""><textarea name=""fdata"" cols=""100"" rows=""15"">" & fdata & "</textarea></td>")
response.Write("</tr>")
response.Write("<tr>")
response.Write("	<td class=""row""><input type=""reset"" name=""Reset"" value=""重新修改"">")
response.Write("<input type=""submit"" name=""save"" value=""提交修改""> 当前文件路径：<b>")
response.Write(Server.MapPath("inc/txt/"&pvalue))
response.Write("</b></td>")
response.Write("</tr>")
response.Write("</form>")
response.Write("</table>")
end function
sub reg()
fupdate "AspEaseReg.txt","reg","注册条款修改"
end sub
sub regemail()
fupdate "AspEaseUserRegister.txt","regemail","注册邮件信息修改"
end sub
sub closenobids()
fupdate "AspEaseAuctionCloseNoBids.txt","closenobids","无人竞标商品（结束）邮件修改"
end sub
sub outbidnotice()
fupdate "AspEaseOutbidNotice.txt","outbidnotice","超过出价（未结束）邮件修改"
end sub
sub bidsuccess()
fupdate "AspEaseBidSuccess.txt","bidsuccess","出价成功邮件信息修改"
end sub
sub bidclose()
fupdate "AspEaseAuctionClose.txt","bidclose","给卖家交易成功邮件"
end sub
'=========================================================
'Copyright (C) 2003-2004 AspEase.Com. All rights reserved.
'Web: http://www.aspease.com
'Email: [e-mail],[e-mail]
'=========================================================
'
'FileName: admin_Inputfile.asp
'Version:2.0
'UpdateTime: 2004-10-6 19:28:29
'Script Written by www.aspease.com 
'=========================================================%>