?? newaddhxr.asp
字號:
<% @language=VBScript %>
<%
option explicit
dim cnn,strcnn
set cnn=server.createobject("ADODB.Connection")
strcnn="Provider = Microsoft.Jet.OLEDB.4.0; Data Source = "&Server.Mappath("xjdb.mdb")
cnn.open strcnn
dim hxrcount,hxr
set hxrcount = cnn.execute("select count(*) from hxr")
set hxr = cnn.execute("select * from hxr")
function strlen(str)
dim l,t,c,i
l=len(str)
t=l
for i=1 to l
c=asc(mid(str,i,1))
if c<0 then
c=c+65536
end if
if c>255 then
t=t+1
end if
next
strlen=t
end function
%>
<html>
<head>
<meta http-equiv="Content-Language" content="zh-cn">
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<meta name="GENERATOR" content="Microsoft FrontPage 4.0">
<meta name="ProgId" content="FrontPage.Editor.Document">
<title>添加候選人</title>
<script language="VBScript">
function Cdisp(v1)
dim arr,sli
arr=split(v1,"|",2,1)
cpwhform.hxrname.value=arr(0)
cpwhform.hxrmessage.value=arr(1)
end function
</script>
<script language="javascript">
function sx()
{
window.reload
}
</script>
<title>.</title>
</head>
<body background="bg.gif">
<div align="center">
<center>
<table border="0" width="566" cellpadding="0" height="331" cellspacing="10">
<form name="cpwhform" method="post" action="dbaddhxr.asp">
<tr>
<td width="544" align="top" height="150" valign="bottom">
<table border="0" width="491">
<tr>
<td width="483" align="center"><font face="隸書" size="4">候選人管理</font></td>
</tr>
</table>
<p><input type="button" value="候選人名稱 " name="B6" disabled><input type="button" value=" 備注 " name="B7" disabled>
<%
response.write "<select size='15' name='Cbox' style='font-family: 新宋體' onclick='Cdisp("
response.write "cpwhform.Cbox.options(cpwhform.Cbox.options.selectedindex).value"
response.write ")'>"
dim m,Ctmp1,Ctmp2
do while not hxr.eof
Ctmp1=""
Ctmp2=""
for m=1 to (20-strlen(trim(hxr(1))))
Ctmp1=Ctmp1&" "
next
for m=1 to (50-strlen(trim(hxr(2))))
Ctmp2=Ctmp2&" "
next
response.write "<option value="""
response.write hxr(1)
response.write "|"
response.write hxr(2)
response.write """>"
response.write trim(hxr(1))&Ctmp1&trim(hxr(2))&Ctmp2
response.write "</option>"
hxr.movenext
loop
response.write "</select>"
%>
</td>
<td width="28%" rowspan="2" height="319"></td>
</tr>
<tr>
<td width="560" align="left" valign="middle" height="25" bgcolor="#F4F1E1" style="border: 1 solid #808080"><font face="隸書">名稱:<input tyep="text" name="hxrname" size="10">
備注:<input type="text" name="hxrmessage" size="40"></font></td>
</tr>
<tr>
<td width="544" align="center" valign="middle" height="1" style="border: 1 ridge #808080" bgcolor="#DFD5A4"> <input type='submit' value=' 新增 ' name='submitadd'>
<input type='submit' value='刪 除' name='submitdel'>
<font face="隸書" size="3"> 共[
<%
response.write hxrcount(0)
%>
]條記錄 </font>
</td>
</form>
</tr>
</table>
</center>
</div>
<script language="vbscript">
cpwhform.Cbox.options(0).selected=true
Cdisp(cpwhform.Cbox.options(cpwhform.Cbox.options.selectedindex).value)
</script>
</body>
</html>
<%
cnn.close
set hxrcount=nothing
set hxr=nothing
set cnn=nothing
%>
?? 快捷鍵說明
復制代碼
Ctrl + C
搜索代碼
Ctrl + F
全屏模式
F11
切換主題
Ctrl + Shift + D
顯示快捷鍵
?
增大字號
Ctrl + =
減小字號
Ctrl + -