พูดคุยเกี่ยวกับขั้นตอนการรวบรวมอัตโนมัติและคลังสินค้า

-

'คำสั่งฟังก์ชั่นของการรับข้อมูลเป้าหมายและนำไปใช้ผ่านส่วนประกอบ XML

ฟังก์ชั่น geturl (URL)

setRieval = createObject ("microsoft.xmlhttp"))

ด้วยการดึง

.Open "Get", url, false

.ส่ง

getURL = BYTES2BSTR (.ResponseBody)

'ตรวจสอบข้อมูลหากความยาวของข้อมูลน้อยกว่า 100 หมายความว่าการสกัดกั้นล้มเหลว

ถ้า len (.responsebody) <100 นั่น

Response.write "รับไฟล์ระยะไกล <a href =" & url & "target = _blank>" & url & "</a> ความล้มเหลว"

Response.end

สิ้นสุดถ้า

จบลงด้วย

setRieval = ไม่มีอะไร

ฟังก์ชันสิ้นสุด

'สตริงคู่ -การสร้างมิฉะนั้นจะอ่านไม่ออก!

ฟังก์ชั่น BYTES2BSTR (VIN)

strreturn = "" "

สำหรับ i = 1 ถึง lenb (vin)

thischArcode = ascb (midb (vin, i, 1))

ถ้า thischode <& h80 แล้ว

strreturn = Strreturn & Chr (ThisCharcode)

อื่น

NextCharcode = ASCB (MIDB (VIN, I 1,1)))))

strreturn = strreturn & chr (clng (thischarcode) * & h100 cint (nextcharcode))

ฉัน = ฉัน 1

สิ้นสุดถ้า

ต่อไป

bytes2bstr = streturn

ฟังก์ชันสิ้นสุด

'ระบุรูปแบบของการสกัดกั้นเริ่มตั้งแต่ต้นจนถึงจุดสิ้นสุดของล่าสุด

ฟังก์ชั่น getkey (html, start, สุดท้าย)

filearray = split (html, start)

filearray2 = split (filearray (1), สุดท้าย)

getKey = filearray2 (0)

ฟังก์ชันสิ้นสุด

Dim Softid, URL, HTML, Title

'รับรหัสของหน้า

softId = คำขอ ("id")

url = "http://www3.skycn.com/soft/" & softid & ".html"

html = geturl (url)

'การใช้ชื่อซอฟต์แวร์ของซอฟต์แวร์ Sky เป็นตัวอย่าง

title = getKey (html, "<font color = '#004fc6' size = '3'>", "</font> </td> </tr>)

'เปิดฐานข้อมูลและเตรียมเข้าห้องสมุด

Dim Connstr, Conn, RS, SQL

connstr = "dbq =" server.mappath ("db1.mdb") "" ";

ตั้งค่า conn = server.createObject ("adodb.connection"))

conn.open connstr

ตั้งค่า rs = server.createObject ("adoDb.oldset"))

sql = "เลือก [ชื่อคอลัมน์] จาก [ชื่อดู] โดยที่ [ชื่อคอลัมน์] = '& title &"' "

Rs.oopen SQL, Conn, 3,3

ถ้า RS.EOF และ Rs.Bof แล้ว

RS ("" รายการ ") = ชื่อเรื่อง

Rs.update

ตั้งค่า rs = ไม่มีอะไร

สิ้นสุดถ้า

ตั้งค่า rs = ไม่มีอะไร

Response.write "รวบรวม!"

-