После стольких лет работы с компьютерами я впервые пишу статью онлайн!
Цель программы:Для
рабочих нужд слишком много друзей спрашивают информацию о регистрации компании. Чтобы избежать проблем, на веб-сайт была добавлена функция запроса. Некоторые люди даже сказали, что если у вас нет компьютера, то вы. должен иметь мобильный телефон, если у вас нет компьютера. Вы можете использовать свой мобильный телефон для запроса в любое время и в любом месте. Просто сделайте это и создайте WAP-запрос, и все это будет записано в Блокноте.
Структура базы данных следующая:
Имя библиотеки: data.mdb
Имя таблицы: информационное
поле: идентификатор, название компании, место жительства, законный представитель... (Это многоточие означает и т. д.)
1.
Исходный код страницы обратной связи hello.asp выглядит следующим образом:
<%@ Language=VBScript%>
<% Response.ContentType="text/vnd.wap.wml" %>
<?xml version="1.0"coding="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" метод="post">
<postfield name="qycx" value="$qycx"/>
</go>
</anchor>
<br/><br/>
Сеть промышленной и коммерческой информации Шанграо
</p>
</карта
> </wml>
2.
Исходный код страницы приема информации qycx.asp имеет следующий вид:
<%@ Language=VBScript %>
<% Response.ContentType = "text/vnd.wap.wml" %>
<?xml version="1.0"coding="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="Название компании, например '%"&qycx&"%' "
Set conn=Server.CreateObject("adodb.connection")
'conn.Open "dsn=qycxsjk;uid=;pwd=;database=data.mdb"
conn.open "driver={драйвер доступа Microsoft (*.mdb)};dbq="&server.mappath("qycx.mdb")
sql="выберите * из информации, где "&cx&""
set rs=server.createobject("adodb.recordset")
rs.open sql,conn,1,1
делай, пока не rs.eof
%>
<%qymc=rs("Название компании")
id=rs("id")
%>
<a href="qycx2.asp?id=<%Response.write id%>" ><%Response.write qymc%></a>
<br/>
<%
rs.movenext
петля
RS.закрыть
%>
<br/><br/>
Сеть промышленной и коммерческой информации Шанграо
</p>
</карта
> </wml>
<% Функция uni (китайский)
Для i = 1 в Лен (китайский)
a=Средний(китайский, я, 1)
uni=uni & "&#x" & Hex(Ascw(a)) & ";"
следующий
Конечная функция
%>
==============================================
Второй комментарий: я немного вспотел, когда увидел это. Сначала я использовал «название компании» в качестве ключевого слова для отправки, но позже я подумал об использовании идентификатора в качестве ключевого слова, чтобы избежать проблем с отправкой китайских иероглифов. Я на самом деле долго думал над таким основным вопросом. Здесь, на основе запроса по ключевому слову «Название компании», отправленного hello.asp, мы получаем полные названия всех компаний, которые содержат это ключевое слово в поле «Название компании» (во избежание дублирования), составляем список и нажимаем кнопку «Ввести». третья страница, на которой находится подробная информация о компании.
3.
Исходный код qycx2.asp выглядит следующим образом:
<%@ Language=VBScript %>
<% Response.ContentType = "text/vnd.wap.wml" %>
<?xml version="1.0"coding="gb2312"?>
<!DOCTYPE wml PUBLIC "-//WAPFORUM//DTD WML 1.1//EN" " http://www.wapforum.org/DTD/ wml_1.1.xml">
<%
Set conn=Server.CreateObject("adodb.connection")
'conn.Open "dsn=qycxsjk;uid=;pwd=;database=data.mdb"
conn.open "driver={драйвер доступа Microsoft (*.mdb)};dbq="&server.mappath("qycx.mdb")
%>
<wml>
<card id="qycx3" title="Сеть промышленной и коммерческой информации Шанграо">
<р>
<%
name=request.querystring("id")
sql="select * from info, где id="&name&""
set rs=server.createobject("adodb.recordset")
rs.open sql,conn,1,1
делай, пока не rs.eof
%>
<%qymc=rs("Название компании")%>
Название компании: <%Response.write qymc%>
<br/>
<%zs=rs("резиденция")%>
Место жительства:<%Response.write zs%>
<br/>
<%fddb=rs("Законный представитель")%>
Законный представитель:<%Response.write fddb%>
<br/>
<%zczb=rs("Зарегистрированный капитал")%>
Уставный капитал:<%
если left(zczb,1)="." тогда
Ответ.записать «0»
еще
конец, если
Ответ.напишите zczb%>10 000 юаней
<br/>
<%qylx=rs("Тип предприятия")%>
Тип предприятия:<%Response.write qylx%>
<br/>
<%jyfw=rs("Бизнес-сфера")%>
Объем бизнеса:<%Response.write jyfw%>
<br/>
<%zcrq=rs("Дата создания")%>
Дата регистрации:<%Response.write zcrq%>
<br/>
<%
rs.movenext
цикл
%>
<br/><br/>
Конец сети промышленной и коммерческой информации Шанграо
<br/>
<a href="hello.asp">Возврат</a>
</p>
</карта>
</wml>
====================
Хорошо, завершите запрос и отобразите подробную информацию о компании!
Если я пишу плохо, не ругайте меня. Хе-хе, друзья, которым нравится WAP, могут связаться со мной и дать мне несколько советов! Вопрос: 18185813