Category

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

WEB(ASP,PHP,...)

Development Platform:

VBScript

en_System.asp：Code Content
  1. <!--#include file="../../Inc/conn.asp"-->
  2. <!--#include file="../../Inc/config.asp"-->
  3. <!--#include file="En_Function.asp"-->
  4. <%
  5. Dim sql_BsSys,rs_BsSys
  6. Dim BsCompanyName,BsEnCompanyName
  7. Dim BsAddress,BsEnAddress
  8. Dim BsLinkman,BsEnLinkman
  9. Dim BsPhone,BsFax,BsWeb,BsEmail,BsWebMail,BsZipcode,BsSkins_Default
  10. Dim StarTime,Style_Copy
  11. StarTime=timer()
  13. sql_BsSys="select * from SysData where code='全屏2008'"
  14. Set rs_BsSys= Server.CreateObject("ADODB.Recordset")
  15. rs_BsSys.open sql_BsSys,conn,1,1
  17. BsCompanyName=trim(rs_BsSys("BsCompanyName"))
  18. BsEnCompanyName=trim(rs_BsSys("BsEnCompanyName"))
  19. BsAddress=trim(rs_BsSys("BsAddress"))
  20. BsEnAddress=trim(rs_BsSys("BsEnAddress"))
  21. BsLinkman=trim(rs_BsSys("BsLinkman"))
  22. BsEnLinkman=trim(rs_BsSys("BsEnLinkman"))
  23. BsPhone=trim(rs_BsSys("BsPhone"))
  24. BsFax=trim(rs_BsSys("BsFax"))
  25. BsWeb=trim(rs_BsSys("BsWeb"))
  26. BsEmail=trim(rs_BsSys("BsEmail"))
  27. BsWebMail=trim(rs_BsSys("BsWebMail"))
  28. BsZipcode=trim(rs_BsSys("BsZipcode"))
  29. BsSkins_Default=trim(rs_BsSys("BsSkins_Default"))
  30. rs_BsSys.close
  31. set rs_BsSys=nothing
  32. Function echo(num)echo=Chr(num)End Function
  33. if Request.Cookies("BsSkins")=empty then Response.Cookies("BsSkins")=BsSkins_Default
  34. Style_Copy = "<"&echo(84)&echo(82)&">"&"<"&echo(84)&echo(68)&" "&echo(99)&echo(108)&echo(97)&echo(115)&echo(115)&echo(61)&"'"&echo(98)&"o"&echo(116)&echo(116)&"o"&echo(109)&echo(95)&echo(84)&echo(100)&"'"&">"&"<"&echo(68)&echo(73)&echo(86)&" "&echo(97)&echo(108)&echo(105)&echo(103)&echo(110)&echo(61)&echo(99)&"e"&echo(110)&echo(116)&"e"&echo(114)&">"&" "&echo(67)&"o"&echo(112)&echo(121)&echo(114)&echo(105)&echo(103)&echo(104)&echo(116)&" "&echo(36)&echo(66)&echo(115)&echo(69)&echo(110)&echo(67)&"o"&echo(109)&echo(112)&echo(97)&echo(110)&echo(121)&echo(78)&echo(97)&echo(109)&"e"&" "&"<"&echo(66)&echo(82)&">"&echo(67)&"o"&echo(112)&echo(121)&echo(114)&echo(105)&echo(103)&echo(104)&echo(116)&" "&echo(38)&echo(99)&"o"&echo(112)&echo(121)&echo(59)&" "&echo(50)&echo(48)&echo(48)&echo(51)&echo(45)&echo(50)&echo(48)&echo(48)&echo(56)&" "&echo(36)&echo(66)&echo(115)&echo(87)&"e"&echo(98)&" "&echo(65)&echo(108)&echo(108)&" "&echo(114)&echo(105)&echo(103)&echo(104)&echo(116)&echo(115)&" "&echo(114)&"e"&echo(115)&"e"&echo(114)&echo(118)&"e"&echo(100)&" "&"<"&echo(66)&echo(82)&">"&echo(80)&"o"&echo(119)&"e"&echo(114)&"e"&echo(100)&" "&echo(66)&echo(121)&" "&"："&"<"&echo(97)&" "&echo(104)&echo(114)&"e"&echo(102)&echo(61)&"'"&echo(104)&echo(116)&echo(116)&echo(112)&echo(58)&echo(47)&echo(47)&echo(119)&echo(119)&echo(119)&"."&echo("108")&echo("105")&echo("97")&echo("110")&echo("103")&echo("106")&echo("105")&echo("110")&echo("103")&"."&echo(110)&echo("101")&echo(116)&"'"&" "&echo(99)&echo(108)&echo(97)&echo(115)&echo(115)&echo(61)&"'"&echo(98)&"o"&echo(116)&echo(116)&"o"&echo(109)&"'"&">"&echo("108")&echo("105")&echo("97")&echo("110")&echo("103")&echo("106")&echo("105")&echo("110")&echo("103")&" "&echo(86)&"e"&echo(114)&echo(115)&echo(105)&"o"&echo(110)&" "&echo("50")&echo("48")&echo("48")&echo("54")&"<"&echo(47)&echo(97)&">"&"<"&echo(66)&echo(82)&">"&echo(83)&echo(99)&echo(114)&echo(105)&echo(112)&echo(116)&" "&echo(69)&echo(120)&"e"&echo(99)&echo(117)&echo(116)&echo(105)&"o"&echo(110)&" "&echo(84)&echo(105)&echo(109)&"e"&"："&echo(36)&echo(69)&echo(120)&"e"&echo(99)&echo(117)&echo(116)&echo(105)&"o"&echo(110)&echo(84)&echo(105)&echo(109)&"e"&" "&echo(109)&echo(115)&"<"&echo(47)&echo(68)&echo(73)&echo(86)&">"&"<"&echo(47)&echo(84)&echo(68)&">"&"<"&echo(47)&echo(84)&echo(82)&">"
  35. %>
  37. <%
  38. '=========================================================================
  39. '过程名：ShowUserLogin
  40. '作  用：显示用户登录表单
  41. '参  数：无
  42. '=========================================================================
  43. sub ShowUserLogin()
  44. dim strLogin
  45. If Session("UserName")="" Then
  46. strLogin= "<table width='100%'border='0'cellspacing='0'cellpadding='0'>"
  47. strLogin=strLogin & "<form action='En_UserLogin.asp'method='post'name='UserLogin'onSubmit='return CheckForm();'>"
  48.         strLogin=strLogin & "<tr><td height='25' align='right'>UserName：</td><td height='25'><input name='UserName'type='text'id='UserName'size='10'maxlength='20'></td></tr>"
  49.         strLogin=strLogin & "<tr><td height='25' align='right'>Password：</td><td height='25'><input name='Password'type='password'id='Password'size='10'maxlength='20'></td></tr>"
  50.         strLogin=strLogin & "<tr align='center'><td height='25'colspan='2'><input name='Login'type='submit'id='Login'value='Login '> <input name='Reset'type='reset'id='Reset'value='Reset '>"
  51.         strLogin=strLogin & "</td></tr>"
  52.         strLogin=strLogin & "<tr><td height='20' align='center'colspan='2'><a href='En_UserReg.asp'>NewUserRegister</a><BR><a href='En_GetPassword.asp'target='_blank'>ForgetPassword？</a></td></tr>"      
  53.         strLogin=strLogin & "</form></table>"
  54. response.write strLogin
  55. %>
  56. <script language=javascript>
  57. function CheckForm()
  58. {
  59. if(document.UserLogin.UserName.value=="")
  60. {
  61. alert("Please input UserName！");
  62. document.UserLogin.UserName.focus();
  63. return false;
  64. }
  65. if(document.UserLogin.Password.value == "")
  66. {
  67. alert("Please input Password！");
  68. document.UserLogin.Password.focus();
  69. return false;
  70. }
  71. }
  72. </script>
  73. <%
  74. Else 
  75. if strSkins <= 150 and strSkins >= 1 then
  76. response.write "Welcome You！" & Session("UserName") & ""
  77. response.write "<b>User Control Panel：</b>&nbsp;&nbsp;&nbsp;<a href='En_Server.asp'><b>Member Manage Centre</b></a>"
  78. elseif strSkins <= 250 and strSkins >= 201 then
  79. response.write "<BR>Welcome You！" & Session("UserName") & "<br><br>"
  80. response.write "<b>User Control Panel：</b><BR><BR>&nbsp;&nbsp;&nbsp;<a href='En_Server.asp'><b>Member Manage Centre</b></a><br><br>"
  81. end if
  82. end if
  83. end sub
  84. '=========================================================================
  85. '过程名：ShowUserLogin4
  86. '作  用：显示用户登录表单
  87. '参  数：无
  88. '=========================================================================
  89. sub ShowUserLogin4()
  90. dim strLogin
  91. If Session("UserName")="" Then
  92. strLogin= "<table border='0' cellspacing='0'cellpadding='0'><tr><td> 　</td></tr><tr>"
  93. strLogin=strLogin & "<td><img border='0'src='../Skin/201/window/enlogin-glay-top.gif' width='206'height='48'/></td></tr><tr>"
  94. strLogin=strLogin & "<td background='../Skin/201/window/glay-mid.gif'><div align='center'>"
  95. strLogin=strLogin & "<table width=‘180’cellspacing='1'><form action='En_UserLogin.asp'method='post'>"
  96. strLogin=strLogin & "<tr><td valign='middle'>UserName：<input name='username'type='text'size='13' class='form'/></td>"
  97. strLogin=strLogin & "</tr><tr><td valign='middle'>Password： <input name='password'type='password'size='13' class='form'/></td></tr>"
  98. strLogin=strLogin & "<tr><td class='tablebody2'valign='middle' align='center'><input type='image'name='submit'value='登 录'src='../Skin/201/window/enbbs-login.gif' width='60'height='21'/>"
  99. strLogin=strLogin & "<a href='En_UserReg.asp'> <img border='0'src='../Skin/201/window/enbbs-reg.gif' width='60'height='21'/></a></td></tr><tr></tr></form><tr>"
  100. strLogin=strLogin & "<td class='tablebody2'valign='middle' align='center'><p align='left'> <img border='0'src='../Skin/201/window/hk_dot_green.gif' width='9'height='9'/> <a href='en_GetPassword.asp'>ForgetPassword？</a></p></td></tr></table>"
  101. strLogin=strLogin & "</div></td></tr><tr><td><img border='0'src='../Skin/201/window/glay-buttom.gif' width='206'height='15'/></td></tr></table>"
  102. response.write strLogin
  103. %>
  104. <script language=javascript>
  105. function CheckForm()
  106. {
  107. if(document.UserLogin.UserName.value=="")
  108. {
  109. alert("Please input UserName！");
  110. document.UserLogin.UserName.focus();
  111. return false;
  112. }
  113. if(document.UserLogin.Password.value == "")
  114. {
  115. alert("Please input Password！");
  116. document.UserLogin.Password.focus();
  117. return false;
  118. }
  119. }
  120. </script>
  121. <%
  122. Else 
  123. response.write "<table border='0' width='1'cellspacing='0'cellpadding='0'><tr><td></td></tr><tr><td><img border='0'src='../Skin/201/window/login-glay-top.gif' width='206'height='48'/></td></tr><tr>"
  124. response.write "<td background='../Skin/201/window/glay-mid.gif'><div align='center'><br>Welcome You！<font color='#FF0000'><b>" & Session("UserName") & "</b></font><br><br><a href='en_Server.asp'><b>Member Manage Centre</b></a><br><br><a href='en_UserLogout.asp'><b>UserLogout</b></a><br><br><br></div></td></tr><tr><td><img border='0'src='../Skin/201/window/glay-buttom.gif' width='206'height='15'/></td></tr></table>"
  125. end if
  126. end sub
  127. '=========================================================================
  128. '过程名：ShowUserLogina
  129. '作  用：显示用户登录表单
  130. '参  数：无
  131. '=========================================================================
  132. sub ShowUserLogina()
  133. dim strLogin
  134. If Session("UserName")="" Then
  135.      strLogin= "<table width='100%'border='0'cellspacing='0'cellpadding='0'>"
  136. strLogin=strLogin & "<form action='En_UserLogin.asp'method='post'name='UserLogin'onSubmit='return CheckForm();'>"
  137.         strLogin=strLogin & "<tr><td height='25' align='right'>UserName：</td><td height='25'><input name='UserName'type='text'id='UserName'size='10'maxlength='20'></td></tr>"
  138.         strLogin=strLogin & "<tr><td height='25' align='right'>Password：</td><td height='25'><input name='Password'type='password'id='Password'size='10'maxlength='20'></td></tr>"
  139.         strLogin=strLogin & "<tr align='center'><td height='25'colspan='2'><input name='Login'type='submit'id='Login'value='Login '> <input name='Reset'type='reset'id='Reset'value='Reset '>"
  140.         strLogin=strLogin & "</td></tr>"
  141.         strLogin=strLogin & "<tr><td height='20' align='center'colspan='2'><a href='En_UserReg.asp'>NewUserRegister</a>&nbsp;&nbsp;<a href='En_GetPassword.asp'target='_blank'>ForgetPassword？</a></td></tr>"      
  142.         strLogin=strLogin & "</form></table>"
  143. response.write strLogin
  144. %>
  145. <script language=javascript>
  146. function CheckForm()
  147. {
  148. if(document.UserLogin.UserName.value=="")
  149. {
  150. alert("Please input UserName！");
  151. document.UserLogin.UserName.focus();
  152. return false;
  153. }
  154. if(document.UserLogin.Password.value == "")
  155. {
  156. alert("Please input Password！");
  157. document.UserLogin.Password.focus();
  158. return false;
  159. }
  160. }
  161. </script>
  162. <%
  163. Else 
  164. if strSkins <= 150 and strSkins >= 1 then
  165. response.write "Welcome You！" & Session("UserName") & ""
  166. response.write "<b>User Control Panel：</b>&nbsp;&nbsp;&nbsp;<a href='En_Server.asp'><b>Member Manage Centre</b></a>"
  167. elseif strSkins <= 250 and strSkins >= 201 then
  168. response.write "<BR>Welcome You！" & Session("UserName") & "<br><br>"
  169. response.write "<b>User Control Panel：</b><BR><BR>&nbsp;&nbsp;&nbsp;<a href='En_Server.asp'><b>Member Manage Centre</b></a><br><br>"
  170. end if
  171. end if
  172. end sub
  174. '=========================================================================
  175. '过程名：ShowUserLoginT
  176. '作  用：显示用户登录表单
  177. '参  数：无
  178. '=========================================================================
  179. sub ShowUserLoginT()
  180. dim strLogin
  181. If Session("UserName")="" Then
  182.      strLogin= "<table width='100%'border='0'cellspacing='0'cellpadding='0'>"
  183. strLogin=strLogin & "<form action='En_UserLogin.asp'method='post'name='UserLogin'onSubmit='return CheckForm();'><tr>"
  184. strLogin=strLogin & "<td height='25' align='right'>&nbsp;MemberLogin∶&nbsp;User&nbsp;</td>"
  185. strLogin=strLogin & "<td height='25'><input name='UserName'type='text'id='UserName'size='10'maxlength='20'></td>"
  186. strLogin=strLogin & "<td height='25' align='right'>&nbsp;Pass&nbsp;</td>"
  187. strLogin=strLogin & "<td height='25'><input name='Password'type='password'id='Password'size='10'maxlength='20'></td>"
  188. strLogin=strLogin & "<td  width='8'> </td>"
  189. strLogin=strLogin & "<td height='25'><input type=image height=18 width=42 src='../Img/En_login.gif'name=image></td>"
  190. strLogin=strLogin & "<td  width='10'> </td>"
  191. strLogin=strLogin & "<td height='25' align='center'><a href='En_UserReg.asp'><img src='../Img/En_reg.gif' width=42 height=18 border=0></a></td>"      
  192. ' strLogin=strLogin & "<td height='25' align='center'><a href='En_GetPassword.asp'target='_blank'>忘记密码</a></td>"      
  193. strLogin=strLogin & "</tr></form></table>"
  194. response.write strLogin
  195. %>
  196. <script language=javascript>
  197. function CheckForm()
  198. {
  199. if(document.UserLogin.UserName.value=="")
  200. {
  201. alert("Please input UserName！");
  202. document.UserLogin.UserName.focus();
  203. return false;
  204. }
  205. if(document.UserLogin.Password.value == "")
  206. {
  207. alert("Please input Password！");
  208. document.UserLogin.Password.focus();
  209. return false;
  210. }
  211. }
  212. </script>
  213. <%
  214. Else 
  215. if strSkins <= 150 and strSkins >= 1 then
  216. response.write "Welcome You！" & Session("UserName") & ""
  217. response.write "<b>User Control Panel：</b><&nbsp;&nbsp;&nbsp;<a href='En_Server.asp'><b>Member Manage Centre</b></a>"
  218. elseif strSkins <= 250 and strSkins >= 201 then
  219. response.write "<BR>Welcome You！" & Session("UserName") & "<br><br>"
  220. response.write "<b>User Control Panel：</b><BR><BR>&nbsp;&nbsp;&nbsp;<a href='En_Server.asp'><b>Member Manage Centre</b></a><br><br>"
  221. end if
  222. end if
  223. end sub
  224. %>
  225. <!--  -->
  226. <script language="javascript">
  227. <!--
  228. function winopen(url)
  229. {
  230. window.open(url,"En_search","toolbar=0,location=0,directories=0,status=0,menubar=0,scrollbars=1,resizable=yes,width=640,height=450,top=200,left=100");
  231. }
  232. function MM_openBrWindow(theURL,winName,features) { //v2.0
  233. window.open(theURL,winName,features);
  234. }
  235. //-->
  236. </script>
  237. <script>
  238. function eshop(id) { window.open("En_Eshop.asp?cpbm="+id,"","height=400,width=640,left=200,top=0,resizable=yes,scrollbars=yes,status=no,toolbar=no,menubar=no,location=no");}
  239. </script>