% set conntemp=server.createobject("adodb.connection") conntemp.open "database=gcglnew;DSN=gcglnew;uid=gc;pwd=1090438" response.expires=0 %> <% function encode(page,sql) dim pl dim i dim s pl=len(cstr(page)) encode="" for i=1 to (3-pl) encode=encode+"0" next encode=encode+cstr(page) for i=len(sql) to 1 step -1 encode=encode+cstr(ascw(mid(sql,i,1))+128) next pl=len(encode) \ 3 s="" for i= pl to 1 step -1 s=s+mid(encode,i,1) next s=s+mid(encode,pl+1,len(encode)-pl) encode=s end function function excode1(str) dim l dim i dim pl dim s if isNULL(str) then excode1=0 exit function end if excode1=str pl=len(excode1) \ 3 s="" for i= pl to 1 step -1 s=s+mid(excode1,i,1) next s=s+mid(excode1,pl+1,len(excode1)-pl) excode1=s excode1=cint(mid(s,1,3)) end function function excode2(str) dim l dim i dim pl dim s dim ss if isNULL(str) then excode2="" exit function end if ss=str pl=len(ss) \ 3 s="" for i= pl to 1 step -1 s=s+mid(ss,i,1) next s=s+mid(ss,pl+1,len(ss)-pl) excode2="" for i=len(s) to 6 step -3 excode2=excode2+chrw(cint(mid(s,i-2,3))-128) next end function %> <% If len(session("id"))>0 Then session("id")=trim(session("id")) session("name")=trim(session("name")) session("userglfw")=trim(session("userglfw")) session("logintimes")=trim(session("logintimes")) session("homeurl_user")=trim(session("homeurl_user")) end if %>
![]() |
![]() |
|
|||||||||||||
| <%If len(session("id"))>0 Then%>你好! <%=trim(session("name"))%> ,这是您第 <%=trim(session("logintimes"))%> 次登录本系统。<%end if %> |
<%If len(session("id"))>0 Then%>">返回用户区<%end if%>
|
<%If len(session("id"))>0 Then%>退出登录<%end if%>
|
||
|
承德市企业自述
|
||||
|
|
|
|
|
|
|
|
|
|
帮助信息
|
|
©1998-2000 河北省建设工程交易中心制作
|
||
|
E_mail:
|
jszxin@public.sj.he.cn | |
|
地址:
|
石家庄市友谊北大街146号 | |
|
电话:
|
(0311)-7829147 | |
<%conntemp.close%>