bs_sysinfo.asp

我下的VC项目源代码

<%
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