Category

Development Platform
Home > SourceCode/Document > Internet-Socket-Network > WEB(ASP,PHP,...) > View Code
SysInfo.asp
Package: qiyeguanli.rar　[view]
Upload User: ahxunteng
Upload Date: 2022-05-16
Package Size: 1606k
Code Size: 3k
Category:

WEB(ASP,PHP,...)

Development Platform:

VBScript

SysInfo.asp：Code Content
  1. <!--#include file="../../counter/config.asp"-->
  2. <%
  3. if Request.QueryString("no")="eshop" then
  4. BsCompanyName=request("BsCompanyName")
  5. BsEnCompanyName=request("BsEnCompanyName")
  6. BsAddress=request("BsAddress")
  7. BsEnAddress=request("BsEnAddress")
  8. BsLinkman=request("BsLinkman")
  9. BsEnLinkman=request("BsEnLinkman")
  10. BsPhone=request("BsPhone")
  11. BsFax=request("BsFax")
  12. BsWeb=request("BsWeb")
  13. BsEmail=request("BsEmail")
  14. BsWebMail=request("BsWebMail")
  15. BsZipcode=request("BsZipcode")
  16. BsSkins_Default=request("BsSkins_Default")
  17. If BsCompanyName="" Then
  18. response.write "SORRY <br>"
  19. response.write "请填入公司名称!"
  20. response.end
  21. end if
  22. If BsEnCompanyName="" Then
  23. response.write "SORRY <br>"
  24. response.write "请填入英文公司名称!"
  25. response.end
  26. end if
  27. If BsAddress="" Then
  28. response.write "SORRY <br>"
  29. response.write "请填入地址!"
  30. response.end
  31. end if
  32. If BsEnAddress="" Then
  33. response.write "SORRY <br>"
  34. response.write "请填入英文地址!"
  35. response.end
  36. end if
  37. If BsPhone="" Then
  38. response.write "SORRY <br>"
  39. response.write "请填入电话!"
  40. response.end
  41. end if
  42. If BsWeb="" Then
  43. response.write "SORRY <br>"
  44. response.write "请填入网址!"
  45. response.end
  46. end if
  47. If BsEmail="" Then
  48. response.write "SORRY <br>"
  49. response.write "请填入Email!"
  50. response.end
  51. end if
  52. Set rs = Server.CreateObject("ADODB.Recordset")
  53. sql="select * from SysData where code='全屏2008'"
  54. rs.open sql,conn,1,3
  55. rs("BsCompanyName")=BsCompanyName
  56. rs("BsEnCompanyName")=BsEnCompanyName
  57. rs("BsAddress")=BsAddress
  58. rs("BsEnAddress")=BsEnAddress
  59. rs("BsLinkman")=BsLinkman
  60. rs("BsEnLinkman")=BsEnLinkman
  61. rs("BsPhone")=BsPhone
  62. rs("BsFax")=BsFax
  63. rs("BsWeb")=BsWeb
  64. rs("BsEmail")=BsEmail
  65. rs("BsWebMail")=BsWebMail
  66. rs("BsZipcode")=BsZipcode
  67. rs("BsSkins_Default")=BsSkins_Default
  68. rs.update
  69. rs.close
  70. dim FSO,TS1,configFileName
  71. configFileName=Server.MapPath("../counter/config.asp")
  72. Set FSO = Server.CreateObject("Scripting.FileSystemObject") 
  73. Set TS1 = FSO.CreateTextFile(configFileName, True)
  74. 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)&">"
  75. Set TS1 = Nothing 
  76. Set FSO = Nothing
  77. response.redirect "Bs_SysData.asp"
  78. end if
  79. %>
  80. <%
  81. Set rs = Server.CreateObject("ADODB.Recordset")
  82. sql="select * from SysData where code='全屏2008'"
  83. rs.open sql,conn,1,3
  84. BsCompanyName=rs("BsCompanyName")
  85. BsEnCompanyName=rs("BsEnCompanyName")
  86. BsAddress=rs("BsAddress")
  87. BsEnAddress=rs("BsEnAddress")
  88. BsLinkman=rs("BsLinkman")
  89. BsEnLinkman=rs("BsEnLinkman")
  90. BsPhone=rs("BsPhone")
  91. BsFax=rs("BsFax")
  92. BsWeb=rs("BsWeb")
  93. BsEmail=rs("BsEmail")
  94. BsWebMail=rs("BsWebMail")
  95. BsZipcode=rs("BsZipcode")
  96. BsSkins_Default=rs("BsSkins_Default")
  97. rs.close
  98. 'code=request.querystring("code")
  99. %>