搞了这么多年计算机,第一次写文章到网上来!见笑了
程序目的:工作需要,查询企业注册资料的朋友太多了,省得麻烦,在网站上增加了查询功能,居然有人说没有电脑,没电脑也该有个手机吧。用手机查询这样随时随地都行,说干就干,做一个wap查询,全用记事本写的。
数据库结构如下:
库名:data.mdb
表名:info
字段:id 、企业名称、住所、法定代表人……(这个省略号是等等的意思)
一、反馈页面 hello.asp
源码如下:
<%@ language=vbscript %>
<% response.contenttype="text/vnd.wap.wml" %>
<?xml version="1.0" encoding="gb2312"?>
<!doctype wml public "-//wapforum//dtd wml 1.1//en" "http://www.wapforum.org/dtd/ wml_1.1.xml">
<wml>
<card id="qycx" title="上饶工商信息网">
<p>
请输入查询资料<input name="qycx" type="text" maxlength="16" />
<anchor title="确定">确定
<go href="qycx.asp" method="post">
<postfield name="qycx" value="$qycx"/>
</go>
</anchor>
<br/><br/>
上饶工商信息网
</p>
</card>
</wml>
二、信息接收 页面 qycx.asp
源码如下:
<%@ language=vbscript %>
<% response.contenttype = "text/vnd.wap.wml" %>
<?xml version="1.0" encoding="gb2312"?>
<!doctype wml public "-//wapforum//dtd wml 1.1//en" "http://www.wapforum.org/dtd/ wml_1.1.xml">
<wml>
<card id="qycx2" title="上饶工商信息网">
<p>
<%
qycx=request.form("qycx")
cx="企业名称 like '%"&qycx&"%' "
set conn=server.createobject("adodb.connection")
'conn.open "dsn=qycxsjk;uid=;pwd=;database=data.mdb"
conn.open "driver={microsoft access driver (*.mdb)};dbq="&server.mappath("qycx.mdb")
sql="select * from info where "&cx&""
set rs=server.createobject("adodb.recordset")
rs.open sql,conn,1,1
do while not rs.eof
%>
<%qymc=rs("企业名称")
id=rs("id")
%>
<a href="qycx2.asp?id=<%response.write id%>" ><%response.write qymc%></a>
<br/>
<%
rs.movenext
loop
rs.close
%>
<br/><br/>
上饶工商信息网
</p>
</card>
</wml>
<% function uni(chinese)
for i = 1 to len (chinese)
a=mid(chinese, i, 1)
uni=uni & "&#x" & hex(ascw(a)) & ";"
next
end function
%>
[1] [2] 下一页
Java Asp PHP .Net XML C/C++ CGI VB Jsp J2ee J2se J2me EJB Servlet Tomcat Resin Struts Weblogic Eclipse ANT GUI JMS Web servise IDEA Webphere Hibernate Spring Jboss Applet Swing Socket Javamail Perl Ajax P2P 安全 模式 框架 测试 开源 游戏
Windows XP Windows 2000 Windows 2003 Windows Me Windows 9.x Linux UNIX 注册表 操作系统 服务器 应用服务器