오랫동안 컴퓨터로 작업한 후, 온라인에 기사를 쓰는 것은 이번이 처음입니다!
프로그램의 목적:업무상
회사 등록 정보를 문의하는 친구들이 너무 많습니다. 문제를 해결하기 위해 실제로 컴퓨터가 없으면 웹사이트에 쿼리 기능을 추가하는 사람들도 있습니다. 컴퓨터가 없다면 휴대폰이 있어야 합니다. 휴대폰을 이용해 언제 어디서나 쿼리할 수 있습니다. WAP 쿼리를 작성하면 됩니다. 모두 메모장으로 작성됩니다.
데이터베이스 구조는 다음과 같습니다.
라이브러리 이름: data.mdb
테이블 이름: 정보
필드: ID, 회사명, 거주지, 법적 대리인... (줄임표는 등을 의미합니다.)
1.
피드백 페이지 hello.asp의 소스 코드 다음과 같습니다:
<%@ 언어=VBScript%>
<% Response.ContentType="text/vnd.wap.wml" %>
<?xml version="1.0" 인코딩="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" 방법="포스트">
<postfield name="qycx" value="$qycx"/>
</go>
</앵커>
<br/><br/>
Shangrao 산업 및 상업 정보 네트워크
</p> <
/카드>
</wml>
2.
정보 수신 페이지 qycx.asp의 소스 코드는 다음과 같습니다.
<%@ Language=VBScript %>
<% Response.ContentType = "text/vnd.wap.wml" %>
<?xml version="1.0" 인코딩="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&"" 정보에서 * 선택
rs=server.createobject("adodb.recordset")를 설정합니다.
rs.open SQL,콘,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/>
Shangrao 산업 및 상업 정보 네트워크
</p> <
/카드>
</wml>
<% 기능 uni(중국어)
i = 1 ~ Len(중국어)
a=중간(중국어, i, 1)
uni=uni & "&#x" & Hex(Ascw(a)) & ";"
다음
기능 종료
%>
================================================
두 번째 댓글: 이거 보고 조금 진땀이 났습니다. 처음에는 "회사명"을 키워드로 제출했는데, 나중에는 한자 제출 문제를 피하기 위해 ID를 키워드로 사용하는 걸 생각했습니다. 사실 저는 그런 기본적인 질문에 대해 오랫동안 고민했어요. 여기에서는 hello.asp가 제출한 "회사 이름" 키워드 쿼리를 기반으로 "회사 이름" 필드에 이 키워드가 포함된 모든 회사의 전체 이름을 가져와(중복 방지) 목록을 만든 다음 클릭하여 입력합니다. 세 번째 페이지는 회사의 세부 정보입니다.
3.
qycx2.asp의 소스 코드는 다음과 같습니다:
<%@ Language=VBScript %>
<% Response.ContentType = "text/vnd.wap.wml" %>
<?xml version="1.0" 인코딩="gb2312"?>
<!DOCTYPE wml PUBLIC "-//WAPFORUM//DTD WML 1.1//EN" " http://www.wapforum.org/DTD/ wml_1.1.xml">
<%
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="상라오 공상정보 네트워크">
<p>
<%
name=request.querystring("id")
sql="select * from info where id="&name&""
set rs=server.createobject("adodb.recordset")
rs.open SQL,콘,1,1
rs.eof가 아닌 동안 수행
%>
<%qymc=rs("회사 이름")%>
회사 이름: <%Response.write qymc%>
<br/>
<%zs=rs("거주")%>
거주지:<%Response.write zs%>
<br/>
<%fddb=rs("법정 대리인")%>
법정대리인:<%Response.write fddb%>
<br/>
<%zczb=rs("등록 자본금")%>
등록 자본금:<%
왼쪽(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/>
Shangrao 산업 및 상업 정보 네트워크 끝
<br/>
<a href="hello.asp">반품</a>
</p>
</카드>
</wml>
======================
OK, 쿼리를 완료하고 회사 세부정보를 표시하세요!
내 글이 좋지 않다고 혼내지 마세요. 헤헤 WAP를 좋아하는 친구들이 저와 소통하고 조언을 해줄 수 있어요! QQ:18185813