%@ Language=VBScript %> <% Response.Buffer=true Response.Expires=0 %> <% set cn=Server.CreateObject("ADODB.Connection") cn.Open mycnstr set rs=server.CreateObject("ADODB.Recordset") set rs3=server.CreateObject("ADODB.Recordset") id=164 pid=253 rewiewhtml="english.asp" if id="" then id=0 else id=cint(id) end if if id=0 then sqltext="select top 1 id from danwei where enable=1 and pid=3 and manageflag=0 order by creatdate" rs.Open sqltext,cn,1,1 if not rs.EOF then id=rs("id") end if rs.Close end if if id<>0 then sqltext="select * from danwei where enable=1 and id="&id &"and manageflag=0" rs.Open sqltext,cn,1,1 if not rs.EOF then title=trim(rs("name")) content=rs("body") logo=rs("filename1") linkman=rs("linkman") address=rs("adds") zip=rs("postalcode") tel=rs("tel") fax=rs("yhj") email1=rs("thj") startdate= rs("startdate") removedate=rs("removedate") exhibitsite=rs("exhibitsite") zhanweitu=rs("filename2") englishname=trim(rs("englishname")) httpadd=rs("httpadd") str1=rs("email") if str1<>"" then cn_en_num=InStr(str1,",")-1 mail=trim(left(str1,cn_en_num)) mailflag=1 else mailflag=0 end if end if rs.Close end if %>
|
|
|||||||||||||||||||||||||||||||||||||||||
|
|
||||||||||||||||||||||||||||||||||||||||||
| Copyright © 2007 Dalian Xinghai Exhibitions, All rights reserved. 版权所有 辽ICP备05015653号 Tel: +86-41188816904 MSN: harbor_chai_cn@hotmail.com E-mail: shiportcina@gmail.com |
||||||||||||||||||||||||||||||||||||||||||