急----请问下谁有ASP查询系统的东西我出200 如数据库或者ASP建模

请问你要哪方面的？？

先给你：ASP图书馆查询系统 剩下的由此引申制作！！

这个程序完整！

<script language="vbscript">

<!--

Function datacheck

dim errflag

errflag = True

'表单(Form)的名称为「qrybk」，同时检查「书籍编号」、「作

'者姓名」、「出版年月」及「书名关键字」是否为「空字符串」

If (qrybk.bookno.value = Empty) And _

(qrybk.author.value = Empty) And _

(qrybk.pub_date.value = Empty) And _

(qrybk.bookname.value = Empty) Then

'将游标置于表单的第一个栏，即「书籍编号」

focusto(0)

errflag = False

End if

If (errflag = False) then

'利用MsgBox程序显示警告讯息

MsgBox "请至少输入一项查询条件！", 64, "Oh no!"

Exit Function

End if

datacheck = errflag

'Submit(传送)表单资料至Web Server

qrybk.Submit

End Function

Sub focusto(