WEB源码(ASP,PHP,...)

开发平台：

VBScript

SysInfo.asp：源码内容

							<!--#include file="../../counter/config.asp"-->
<%
if Request.QueryString("no")="eshop" then
BsCompanyName=request("BsCompanyName")
BsEnCompanyName=request("BsEnCompanyName")
BsAddress=request("BsAddress")
BsEnAddress=request("BsEnAddress")
BsLinkman=request("BsLinkman")
BsEnLinkman=request("BsEnLinkman")
BsPhone=request("BsPhone")
BsFax=request("BsFax")
BsWeb=request("BsWeb")
BsEmail=request("BsEmail")
BsWebMail=request("BsWebMail")
BsZipcode=request("BsZipcode")
BsSkins_Default=request("BsSkins_Default")
If BsCompanyName="" Then
response.write "SORRY <br>"
response.write "请填入公司名称!"
response.end
end if
If BsEnCompanyName="" Then
response.write "SORRY <br>"
response.write "请填入英文公司名称!"
response.end
end if
If BsAddress="" Then
response.write "SORRY <br>"
response.write "请填入地址!"
response.end
end if
If BsEnAddress="" Then
response.write "SORRY <br>"
response.write "请填入英文地址!"
response.end
end if
If BsPhone="" Then
response.write "SORRY <br>"
response.write "请填入电话!"
response.end
end if
If BsWeb="" Then
response.write "SORRY <br>"
response.write "请填入网址!"
response.end
end if
If BsEmail="" Then
response.write "SORRY <br>"
response.write "请填入Email!"
response.end
end if
Set rs = Server.CreateObject("ADODB.Recordset")
sql="select * from SysData where code='全屏2008'"
rs.open sql,conn,1,3
	rs("BsCompanyName")=BsCompanyName
	rs("BsEnCompanyName")=BsEnCompanyName
	rs("BsAddress")=BsAddress
	rs("BsEnAddress")=BsEnAddress
	rs("BsLinkman")=BsLinkman
	rs("BsEnLinkman")=BsEnLinkman
	rs("BsPhone")=BsPhone
	rs("BsFax")=BsFax
	rs("BsWeb")=BsWeb
	rs("BsEmail")=BsEmail
	rs("BsWebMail")=BsWebMail
	rs("BsZipcode")=BsZipcode
	rs("BsSkins_Default")=BsSkins_Default
rs.update
rs.close
dim FSO,TS1,configFileName
configFileName=Server.MapPath("../counter/config.asp")
Set FSO = Server.CreateObject("Scripting.FileSystemObject") 
Set TS1 = FSO.CreateTextFile(configFileName, True)
TS1.write "<"&chr(37)&"dim fake,style,show"&chr(13)&"fake="&abs(Request("Counterfake"))&chr(13)&"style="&abs(Request("Counterstyle"))&Chr(13)&"show="&chr(34)&Request("Countershow")&chr(34)&Chr(13)&chr(37)&">"
Set TS1 = Nothing 
Set FSO = Nothing
response.redirect "Bs_SysData.asp"
end if
%>
<%
Set rs = Server.CreateObject("ADODB.Recordset")
sql="select * from SysData where code='全屏2008'"
rs.open sql,conn,1,3
	BsCompanyName=rs("BsCompanyName")
	BsEnCompanyName=rs("BsEnCompanyName")
	BsAddress=rs("BsAddress")
	BsEnAddress=rs("BsEnAddress")
	BsLinkman=rs("BsLinkman")
	BsEnLinkman=rs("BsEnLinkman")
	BsPhone=rs("BsPhone")
	BsFax=rs("BsFax")
	BsWeb=rs("BsWeb")
	BsEmail=rs("BsEmail")
	BsWebMail=rs("BsWebMail")
	BsZipcode=rs("BsZipcode")
	BsSkins_Default=rs("BsSkins_Default")
	rs.close
'code=request.querystring("code")
%>

						