HIF考研

我的asp代码,改改就用。

-

& lt!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.0 Transitional//EN " & gt;

& lthtml & gt

& lthead & gt

& ltmeta http-equiv = " Content-Type " Content = " text/html;charset=gb2312 " >

& lttitle & gt数据信息查询

& lt/head & gt;

& lt正文背景= "../imag/Lu . jpg " & gt;

& ltp & gt& ltbr & gt& lt/p & gt;

& ltp & gt& lt/p & gt;

& ltp & gt& lt/p & gt;

& ltform id = " form 1 " name = " formcx " method = " post " >

& lttable border color = " # 008080 " cellSpacing = " 1 " cell padding = " 0 " width = " 442 " align = " center " border = " 1 " height = " 12 " style = " word-break:break-all " >

& lttr & gt

& ltTD width = " 434 " align = " center " height = " 12 " >

& lttable border color = " # 336699 " height = " 103 " width = " 504 " border = " 1 " >

& lttbody & gt

& lttr & gt

& ltTD align = " center " width = " 500 " height = " 28 " colspan = " 4 " >

& ltp align="center " >& ltfont color="#ff0000 " >& ltb & gt信息查询

& lttr & gt

& ltTD align = " center " width = " 526 " height = " 28 " colspan = " 4 " >?& lt/TD & gt;& lt/tr & gt;

& lttr & gt

& ltTD align = " center " width = " 108 " height = " 28 " >

& ltp align="center " >& ltfont size="3" color="#008000 " >& ltb & gt查询类别

& lt/TD & gt;

& ltTD align = " center " width = " 108 " height = " 28 " >

& ltp align="left " >

& ltselect name = " cxlb " onChange = " JavaScript:document . getelementbyid(' form CX ')。提交();"& gt

& lt%

dim select_xw

如果request.form("cxlb") = "99 ",则

select_daily = " "

select_xw = " "

select_money = " "

如果…就会结束

如果request.form("cxlb") = "1 "那么

select_xw = "selected "

其他

select_xw = " "

如果…就会结束

dim选择_每日

如果request.form("cxlb") = "2 ",则

select_daily = "selected "

其他

select_daily = " "

如果…就会结束

dim select_money

如果request.form("cxlb") = "3 ",则

select_money = "selected "

其他

select_money = " "

如果…就会结束

% & gt

& ltoption value="99 " >& lt/option & gt;

& ltoption value = " 1 " & lt;% = select _ xw % & gt& gt新闻信息

& ltoption value = " 2 " & lt% = select _ daily % & gt& gt日记信息

& ltoption value = " 3 " & lt% = select _ money % & gt& gt基金信息

& lt/select & gt;

& lt/p & gt;& lt/TD & gt;

& ltTD align = " center " width = " 108 " height = " 28 " >

& ltp align="center " >& ltfont size="3" color="#008000 " >& ltb & gt类别信息

& ltTD align = " center " width = " 176 " height = " 28 " >

& ltp align="left " >

& ltselect name = " lbxx " onChange = " JavaScript:document . getelementbyid(' form CX ')。提交();"& gt

& ltoption value="99 " >所有信息

& lt%

如果request.form("cxlb") = "1 "那么

dim select_tlxx

如果request.form("lbxx") = "1 ",则

select_tlxx = "selected "

其他

select_tlxx = " "

如果…就会结束

dim select_zrkx

如果request.form("lbxx") = "2 ",则

select_zrkx = "selected "

其他

select_zrkx = " "

如果…就会结束

dim select_lswh

如果request.form("lbxx") = "3 ",则

select_lswh = "selected "

其他

select_lswh = " "

如果…就会结束

dim select_zhxw

如果request.form("lbxx") = "4 ",则

select_zhxw = "selected "

其他

select_zhxw = " "

如果…就会结束

dim select_aqxx

如果request.form("lbxx") = "5 ",则

select_aqxx = "selected "

其他

select_aqxx = " "

如果…就会结束

dim select_dlxx

如果request.form("lbxx") = "6 ",则

select_dlxx = "selected "

其他

select_dlxx = " "

如果…就会结束

dim select_jkcs

如果request.form("lbxx") = "7 ",则

select_jkcs = "selected "

其他

select_jkcs = " "

如果…就会结束

dim select_cjxx

如果request.form("lbxx") = "8 ",则

select_cjxx = "selected "

其他

select_cjxx = " "

如果…就会结束

dim select_jyjt

如果request.form("lbxx") = "9 ",则

select_jyjt = "selected "

其他

select_jyjt = " "

如果…就会结束

dim select_zzsj

如果request.form("lbxx") = "10 ",则

select_zzsj = "selected "

其他

select_zzsj = " "

如果…就会结束

dim select_emxz

如果request . form(" lbxx ")= " 11 ",则

select_emxz = "selected "

其他

select_emxz = " "

如果…就会结束

dim select_kyxx

如果request.form("lbxx") = "12 ",则

select_kyxx = "selected "

其他

select_kyxx = " "

如果…就会结束

dim select_mstd

如果request.form("lbxx") = "13 ",则

select_mstd = "selected "

其他

select_mstd = " "

如果…就会结束

dim select_mjct

如果request.form("lbxx") = "14 ",则

select_mjct = "selected "

其他

select_mjct = " "

如果…就会结束

% & gt

& ltoption value = " 4 " & lt% = select _ zhxw % & gt& gt综合新闻

& ltoption value = " 6 " & lt% = select _ dlxx % & gt& gt计算机信息

& ltoption value = " 5 " & lt% = select _ aqxx % & gt& gt爱情信息

& ltoption value = " 3 " & lt% = select _ lswh % & gt& gt历史和文化

& ltoption value = " 7 " & lt% = select _ jkcs % & gt& gt健康知识

& ltoption value = " 1 " & lt;% = select _ tlxx % & gt& gt铁路信息

& ltoption value = " 2 " & lt% = select _ zrkx % & gt& gt自然科学

& ltoption value = " 8 " & lt% = select _ cjxx % & gt& gt财务信息

& ltoption value = " 9 " & lt% = select _ jyjt % & gt& gt教育论坛

& ltoption value = " 10 " & lt;% = select _ zzsj % & gt& gtWww世界

& ltoption value = " 11 " & lt;% = select _ emxz % & gt& gtWww学生

& ltoption value = " 12 " & lt;% = select _ kyxx % & gt& gt考研信息

& ltoption value = " 13 " & lt;% = select _ mstd % & gt& gt美食世界

& ltoption value = " 14 " & lt;% = select _ mjct % & gt& gt民间传统

& lt%

如果…就会结束

如果request.form("cxlb") = "2 ",则

如果request.form("lbxx") = "1 ",则

s_cfrq = "selected "

其他

s_cfrq = " "

如果…就会结束

如果request.form("lbxx") = "2 ",则

s_cfdd = "selected "

其他

s_cfdd = " "

如果…就会结束

如果request.form("lbxx") = "3 ",则

s_dddd = "selected "

其他

s_dddd = " "

如果…就会结束

如果request.form("lbxx") = "4 ",则

s_rjxx = "已选择"

其他

s_rjxx = " "

如果…就会结束

% & gt

& ltoption value = " 1 " & lt;% = s _ cfrq % & gt& gt启程日期

& ltoption value = " 2 " & lt% = s _ cfdd % & gt& gt出发地点

& ltoption value = " 3 " & lt% = s _ dddd % & gt& gt到达位置

& ltoption value = " 4 " & lt% = s _ rjxx % & gt& gt日记信息

& lt%

如果…就会结束

如果request.form("cxlb") = "3 ",则

如果request.form("lbxx") = "1 ",则

s_gsyhzd = "selected "

其他

s_gsyhzd = " "

如果…就会结束

如果request.form("lbxx") = "2 ",则

s_yhjxzh = "已选择"

其他

s_yhjxzh = " "

如果…就会结束

如果request.form("lbxx") = "3 ",则

s_jhjzzhgz = "selected "

其他

s_jhjzzhgz = " "

如果…就会结束

如果request.form("lbxx") = "5 ",则

s_ghjtsgz2 = "selected "

其他

s_ghjtsgz2 = " "

如果…就会结束

如果request.form("lbxx") = "6 ",则

s_jhjzzhgzk = "selected "

其他

s_jhjzzhgzk = " "

如果…就会结束

如果request.form("lbxx") = "7 ",则

s_ghjtsgz1 = "selected "

其他

s_ghjtsgz1 = " "

如果…就会结束

如果request.form("lbxx") = "8 ",则

s_lhemzh = "selected "

其他

s_lhemzh = " "

如果…就会结束

如果request.form("lbxx") = "9 ",则

s_zsyhsyzh = "所选"

其他

s_zsyhsyzh = " "

如果…就会结束

如果request.form("lbxx") = "10 ",则

s_dwjj = "selected "

其他

s_dwjj = " "

如果…就会结束

如果request . form(" lbxx ")= " 11 ",则

s_zj = "已选择"

其他

s_zj = " "

如果…就会结束

如果request.form("lbxx") = "12 ",则

s_yhdqcd = "selected "

其他

s_yhdqcd = " "

如果…就会结束

如果request.form("lbxx") = "13 ",则

s _ ghlhzhgpk = " selected "

其他

s _ ghlhzhgpk = " "

如果…就会结束

如果request.form("lbxx") = "18 ",则

s_ghlhzhgp = "selected "

其他

s_ghlhzhgp = " "

如果…就会结束

% & gt

& ltoption value = " 1 " & lt;% = s _ gsyhzd % & gt& gt工行东站支行(1111)

& ltoption value = " 2 " & lt% = s _ yhjxzh % & gt& gt中国农业银行金1支行(111);

& ltoption value = " 3 " & lt% = s _ jhjzzhgz % & gt& gt建行111支行(工资)

& ltoption value = " 5 " & lt% = s _ ghjtsgz2 % & gt& gt工行1111(工资2)

& ltoption value = " 6 " & lt% = s _ jhjzzhgzk % & gt& gt建行1111支行(工资卡)

& ltoption value = " 7 " & lt% = s _ ghjtsgz 1% & gt;& gt工行Sss学院(工资1)& lt;/option & gt;

& ltoption value = " 8 " & lt% = s _ lhemzh % & gt& gt中国农业银行峨眉支行

& ltoption value = " 9 " & lt% = s _ zsyhsyzh % & gt& gt招商银行ssss支行(工资卡)

& ltoption value = " 10 " & lt;% = s _ dwjj % & gt& gt单位奖金(工资)

& ltoption value = " 11 " & lt;% = s _ zj % & gt& gtSSS(SSSS)& lt;/option & gt;

& ltoption value = " 12 " & lt;% = s _ yhdqcd % & gt& gt银行定期存款证明

& ltoption value = " 13 " & lt;% = s _ ghlhzhgpk % & gt& gt中国工商银行Ssss支行

& ltoption value = " 18 " & lt;% = s _ ghlhzhgp % & gt& gt中国工商银行sss支行(ss)

& lt%

如果…就会结束

% & gt

& lt/select & gt;

& lt/TD & gt;& lt/tr & gt;

& lttr & gt

& ltTD align = " center " width = " 108 " height = " 28 " >

& ltp align="center " >& ltfont color="#008000" size="3 " >& ltb & gt查询范围

& ltTD align = " center " width = " 108 " height = " 28 " >

& ltp align="left " >

& lt%

如果request.form("cxlb") = "1 "那么

如果request.form("cxxl") = "1 "那么

s_btss = "selected "

其他

s_btss = " "

如果…就会结束

如果request.form("cxxl") = "2 ",则

s_lrss = "selected "

其他

s_lrss = " "

如果…就会结束

如果request.form("cxxl") = "3 ",则

s_xxrq = "已选择"

其他

s_xxrq = " "

如果…就会结束

% & gt

& ltselect name = " cxxl " onChange = " JavaScript:document . getelementbyid(' form CX ')。提交();"& gt

& ltoption value="99 " >所有信息

& ltoption value = " 1 " & lt;% = s _ btss % & gt& gt标题搜索

& ltoption value = " 2 " & lt% = s _ lrss % & gt& gt内容搜索

& ltoption value = " 3 " & lt% = s _ xxrq % & gt& gt信息日期

& lt/select & gt;

& lt%

如果…就会结束

如果request.form("cxlb") = "3 ",则

如果request.form("cxxl") = "1 "那么

s_jyrq = "selected "

其他

s_jyrq = " "

如果…就会结束

如果request.form("cxxl") = "2 ",则

s_ckjez = "selected "

其他

s_ckjez = " "

如果…就会结束

如果request.form("cxxl") = "3 ",则

s_qkjez = "selected "

其他

s_qkjez = " "

如果…就会结束

% & gt

& ltselect name = " cxxl " onChange = " JavaScript:document . getelementbyid(' form CX ')。提交();"& gt

& ltoption value="99 " >所有信息

& ltoption value = " 1 " & lt;% = s _ jyrq % & gt& gt交易日期

& ltoption value = " 2 " & lt% = s _ ckjez % & gt& gt存款金额(总计)

& ltoption value = " 3 " & lt% = s _ qkjez % & gt& gt提款金额(总计)

& lt/select & gt;

& lt%

如果…就会结束

如果request.form("cxlb") = "2 "或request.form("cxlb") = "99 ",则

% & gt

& ltfont color="#008000" size="3 " >& ltb & gt精确查询

& lt%

如果…就会结束

% & gt

& lt%

dl_cxlb = request.form("cxlb ")

dl_lbxx = request.form("lbxx ")

dl_cxxl = request.form("cxxl ")

如果dl_cxxl = " "那么

dl_cxxl = "99 "

如果…就会结束

% & gt

& lt/p & gt;& lt/TD & gt;& lt/form & gt;

& ltform name = form 2 action = search date . ASP?dl _ cxlb = & lt% = dl _ cxlb % & gt& ampdl _ lbxx = & lt% = dl _ lbxx % & gt& ampdl _ cxxl = & lt% = dl _ cxxl % & gtmethod = post & gt

& ltTD align = " center " width = " 108 " height = " 28 " >

& ltp align="center " >& ltfont color="#008000" size="3 " >& ltb & gt搜索内容

& lt/TD & gt;

& ltTD align = " center " width = " 176 " height = " 28 " >

& ltp align="left " >

& ltinput type = " text " name = " keyword " maxlength = " 50 " >

& lt/p & gt;& lt/TD & gt;& lt/tr & gt;

& lttr & gt

& ltTD align = " center " width = " 526 " height = " 28 " colspan = " 4 " >

& ltfont size="3" color="#008000 " >日期格式:2008-8-18

& lt/TD & gt;& lt/tr & gt;

& lttr & gt

& ltTD align = " center " width = " 526 " height = " 28 " colspan = " 4 " >

& ltinput type = " submit " value = " query " style = " color:# 008000 " action = searchdate.asp >

& ltinput type = " reset " value = " reset " style = " color:# 008000 " >

& lt/TD & gt;& lt/tr & gt;& lt/form & gt;

& lttr & gt

& ltTD align = " center " width = " 526 " height = " 28 " colspan = " 4 " >?& lt/TD & gt;& lt/tr & gt;

& lttr & gt

& ltTD align = " center " width = " 526 " height = " 28 " colspan = " 4 " >

& ltb & gt& ltFont size="3" face= "中文字体" > & lta href= "。/user manager . ASP " & gt;返回管理页面

& lt/TD & gt;& lt/tr & gt;

& lt/tbody & gt;

& lt/table & gt;

& lt/TD & gt;

& lt/tr & gt;

& lt/table & gt;

& lt/body & gt;

& lt/html & gt;