搜索列表
-
如何对文件进行操作？
【编程10000问】<%@ LANGUAGE="VBScript" %><% 'Set file i/o constants. Const ForReading = 1 Const ForWriting = 2 Const ForAppending = 8 filename = "test.txt" path = Server.MapPath("data") & "\" & filename ' 映射...
|如何|何对|对文|文件|件进|进行|行操|操作|作？|？| -
如何创建一个PDF文件？
【编程10000问】 <%Option ExplicitSub CheckXlDriver() On Error Resume Next Dim vConnString Dim oConn, oErr vConnString = "DRIVER={Microsoft Excel Driver (*.xls)};DBQ=NUL:" &n...
|如何|何创|创建|建一|一个|个P|PD|DF|F文|文件|件？|？| -
如何显示一个文本文件？
【编程10000问】 Write（StrING） WriteLine（StrING） WriteBlankLines（LINES） 〈html〉 〈head〉 〈http-equiv="Content-Type" content="text/html; charset=gb2312"〉 〈title〉春风精彩之文本文件显示〈/title〉 〈/head〉 〈body〉 <%...
|如何|何显|显示|示一|一个|个文|文本|本文|文件|件？|？| -
如何一行行地读取文件？
【编程10000问】dim input(30) ' 定义一个数组,大小可随时更改.这里为了显示方便.file_path=Server.Mappath("index.html")Set fs=Server.CreateObject("Scripting.FileSystemObject")Set file_open=fs.OpenTextFile(file_path)n=0Do While Not file_open.AtEndOfStreamn=n+1fileline=file_open.readlineinput(i)=file...
|如何|何一|一行|行行|行地|地读|读取|取文|文件|件？|？| -
如何把一长串数字分位显示？
【编程10000问】<%Function Comma(str)If Not(IsNumeric(str)) Or str = 0 Then Result = 0ElseIf Len(Fix(str)) < 4 Then Result = strElse Pos = Instr(1,str,".") If Pos > 0 Then Dec = Mid(str,Pos) End if Res = StrReverse(Fix(str)) ...
|如何|何把|把一|一长|长串|串数|数字|字分|分位|位显|显示|示？|？| -
如何制作关联的下拉菜单？
【编程10000问】<form name=f1 METHOD="POST"><%OpenDB objConn, "xxxx"Set RSClass = objConn.Execute("select * from class Order by fldClass")If RSClass.EOF Then Response.Write "噢,没有记录!<BR>"ElseResponse.Write "<select NAME=""class"" style=""FONT-S...
|如何|何制|制作|作关|关联|联的|的下|下拉|拉菜|菜单|单？|？| -
如何在读取Excel文件时创建列表的下拉菜单？
【编程10000问】< select name="XlSheet" >< %vOptions = "< option >< /option >"Do While Not oSchemaRs.EOF If oSchemaRs("TABLE_TYPE") = "SYSTEM TABLE" Then vOptions = vOptions & "< option >" & _ &...
|如何|何在|在读|读取|取E|Ex|xc|ce|el|l文|文件|件时|时创|创建|建列|列表|表的|的下|下拉|拉菜|菜单|单？|？| -
如何用下拉列表显示数据库里的内容？
【编程10000问】<%Dim objDC, objRSSet objDC = Server.CreateObject("ADODB.Connection")objDC.ConnectionTimeout = 15objDC.CommandTimeout = 30' 创建数据库连接objDC.Open "DBQ=" & Server.MapPath("database.mdb") & ";Driver={Microsoft Access Driver (*.mdb)};DriverI...
|如何|何用|用下|下拉|拉列|列表|表显|显示|示数|数据|据库|库里|里的|的内|内容|容？|？| -
如何利用数据库内容建立一个下拉式列表？
【编程10000问】如何利用数据库内容建立一个下拉式列表？<% myDSN="DSN=xur;uid=xur;pwd=xur"mySQL="select * from authors where AU_ID<100"set conntemp=server.createobject("adodb.connection")conntemp.open myDSNset rstemp=conntemp.execute(mySQL)if rstemp.eof thenresponse.write "噢,数据库...
|如何|何利|利用|用数|数据|据库|库内|内容|容建|建立|立一|一个|个下|下拉|拉式|式列|列表|表？|？| -
如何实现非大小写的替换？
【编程10000问】如何实现非大小写的替换？Function ReplaceNoIgnoreCase(str,replStr) If len(replStr)<1 or str="" Then ReplaceTest=str Exit function End If ...
|如何|何实|实现|现非|非大|大小|小写|写的|的替|替换|换？|？| -
如何实现歌曲在线点播？
【编程10000问】<%dim choose,path,mydb,myset,SQL,fs,mp3' 获得用户提交表单(list.htm)选中的曲目对应的id号,并将其赋给字串变量choose. choose=“("for i=3 to request.form.countchoose=choose＋request.form(i)＋“,"nextchoose=left(choose,len(choose)－1)＋“)"if choose=“()" thenresponse.redirect(“list.htm")resp...
|如何|何实|实现|现歌|歌曲|曲在|在线|线点|点播|播？|？| -
如何用FileSystemObject组件来做一个站内搜索？
【编程10000问】searchpage.htm' 搜索页面.<html><head> <title>千花飞舞之站内搜索引擎</title> </head> <body> <CENTER> &...
|如何|何用|用F|Fi|il|le|eS|Sy|ys|st|te|em|mO|Ob|bj|je|ec|ct|t组|组件|件来|来做|做一|一个|个站|站内|内
