char.asp

这是个考试系统哦 想学的人可以看看哦

function DateToStr(dtDateTime)
    DateToStr = year(dtDateTime) & doublenum(Month(dtdateTime)) & doublenum(Day(dtdateTime)) & doublenum(Hour(dtdateTime)) & doublenum(Minute(dtdateTime)) & doublenum(Second(dtdateTime)) & ""
end function

Rem 将单位数字前加“0”
function doublenum(fNum)
    if fNum > 9 then 
        doublenum = fNum 
    else 
        doublenum = "0" & fNum
    end if
end function

Rem 过滤不好的字串
function ChkBadWords(fString)
    bwords = split(BadWords, "|")
    for i = 0 to ubound(bwords)
        fString = Replace(fString, bwords(i), string(len(bwords(i)),"*"), 1,-1,1) 
    next
    ChkBadWords = fString
end function

 '/////////////////////////////
'       链接参数处理
'/////////////////////////////
function requestParam(urlpre,pparam,pvalue)
 dim re,l_urlpre
 l_urlpre=urlpre
 Set re=new RegExp
 re.IgnoreCase =true
 re.Global=True
 l_urlpre="null=&"&l_urlpre&"&null="
 re.Pattern="(&"&pparam&"=)[^&]*"
 if not re.Test(l_urlpre) then
  l_urlpre=l_urlpre&"&"&pparam&"="&pvalue
 else
  l_urlpre=re.replace(l_urlpre,"$1"&pvalue)
 end if
 re.Pattern="null=&|&null="
 l_urlpre=re.replace(l_urlpre,"")
 re.Pattern="^&"
 l_urlpre=re.replace(l_urlpre,"")
 re.Pattern="&$"
 l_urlpre=re.replace(l_urlpre,"")
 if l_urlpre="" then l_urlpre="null="
 re.Pattern="^&"
 l_urlpre=re.replace(l_urlpre,"")
 re.Pattern="&$"
 l_urlpre=re.replace(l_urlpre,"")
 requestParam=l_urlpre
end function

function requestDel(urlpre,pparam)
 dim re,l_urlpre
 l_urlpre=urlpre
 Set re=new RegExp
 re.IgnoreCase =true
 re.Global=True
 l_urlpre="null=&"&l_urlpre&"&null="
 re.Pattern="(&"&pparam&"=)[^&]*"
 if re.Test(l_urlpre) then
  l_urlpre=re.replace(l_urlpre,"")
 end if
 re.Pattern="null="
 l_urlpre=re.replace(l_urlpre,"")
 re.Pattern="^&"
 l_urlpre=re.replace(l_urlpre,"")
 re.Pattern="&$"
 l_urlpre=re.replace(l_urlpre,"")
 if l_urlpre="" then l_urlpre="null="
 re.Pattern="^&"
 l_urlpre=re.replace(l_urlpre,"")
 re.Pattern="&$"
 l_urlpre=re.replace(l_urlpre,"")
 requestDel=l_urlpre
end function
dim urlpre
urlpre=checkStr(Request.ServerVariables("QUERY_STRING"))
'/////////////////////////////
'     链接参数处理结束
'/////////////////////////////

Rem 中文分页程序
function showpage(totalnumber,maxperpage,currentpage)
  dim n
  if totalnumber mod maxperpage=0 then
     n= totalnumber \ maxperpage
  else
     n= totalnumber \ maxperpage+1
  end if
  with response
	.write "<table align=center id='jobform'>"
	.write "<form method='POST' action='?"&requestParam(urlpre,"","")&"'>"
	.write "<tr><td>"
	if CurrentPage<2 then
		.write "首页&nbsp;上一页&nbsp;"
	else
		.write "<a href='?"&requestDel(urlpre,"page")&"'>首页</a>&nbsp;"
		.write "<a href='?"&requestParam(urlpre,"page",currentPage-1)&"'>上一页</a>&nbsp;"
	end if
	if n-currentpage<1 then
		.write "下一页&nbsp;尾页"
	else
		.write "<a href='?"&requestParam(urlpre,"page",currentPage+1)&"'>下一页</a>&nbsp;"
		.write "<a href='?"&requestParam(urlpre,"page",n)&"'>尾页</a>"
	end if
	.write "&nbsp;当前页:"&CurrentPage&"&nbsp;共:"&n&"页,"&totalnumber&"条记录"
    .write " 转到:<input type='text' name='page' size=2 maxlength=10 value="&currentpage&">"
	.write "<input class=buttonface type='submit'  value='Go'  job='cmdok' class=button>"
	.write "</td></tr>"
	.write "</form>"
	.write "</table>"

  end with
  
end function 

Rem 英文分页程序
function enshowpage(totalnumber,maxperpage,currentpage)
  dim n
  if totalnumber mod maxperpage=0 then
     n= totalnumber \ maxperpage
  else
     n= totalnumber \ maxperpage+1
  end if
  with response
	.write "<table align=center>"
	.write "<form method='POST' action='?"&requestParam(urlpre,"","")&"'>"
	.write "<tr><td>"
	if CurrentPage<2 then
		.write "First&nbsp;Previous&nbsp;"
	else
		.write "<a href='?"&requestDel(urlpre,"page")&"'>First</a>&nbsp;"
		.write "<a href='?"&requestParam(urlpre,"page",currentPage-1)&"'>Previous</a>&nbsp;"
	end if
	if n-currentpage<1 then
		.write "Next&nbsp;End"
	else
		.write "<a href='?"&requestParam(urlpre,"page",currentPage+1)&"'>Next</a>&nbsp;"
		.write "<a href='?"&requestParam(urlpre,"page",n)&"'>End</a>"
	end if
	.write "&nbsp;Current page:"&CurrentPage&"/"&n&"，Total:"&totalnumber&""
    .write " Jump to:<input type='text' name='page' size=2 maxlength=10 value="&currentpage&">"
	.write "<input class=buttonface type='submit'  value='Go'  job='cmdok' class=button>"
	.write "</td></tr>"
	.write "</form>"
	.write "</table>"

  end with
  
end function

' 国家选择
function Countries(CID)
dim c_rs,c_sql