分享
 
 
 

用InstallShield9 进行ASP软件的打包和数据库自动安装

王朝asp·作者佚名  2006-01-09
窄屏简体版  字體: |||超大  

//近期公司用ASP+SQL开发办公自动化OA,需要制作安装程序发行,此脚本是用IS9.0制作,以此共享,与各同仁交流学习

#define BITMAP_ID 1

#include "ifx.h" //不能移动

prototype CreateWebSite(STRING,STRING); // 创建 IIS 站点

prototype CreateVirtualDir(STRING); // 创建虚拟目录

prototype CreateDataBase(STRING,STRING,STRING);//创建SQL数据库

prototype CheckIIS(); // 示例:检查系统是否安装IIS

STRING TMP_PRODUCT_NAME,TMP_PRODUCT_VERSION,TMP_COMPANY_NAME,TMP_PRODUCT_KEY,TMP_TITLE_CAPTIONBAR;

STRING globalstr,destdir,destsvr,destsa,destpw;

NUMBER nvFileHandle,nvFileHandlebak,asaline;

BOOL iscreatedb;

STRING nSetupType,szSQLsvr,szSQLusr,szSQLpwd,szSQLsvrDefault,szSQLusrDefault,szSQLpwdDefault;

STRING szADsvr,szADusr,szADpwd,szADsvrDefault,szADusrDefault,szADpwdDefault;

STRING szADDomain,szADOU,szADDomainDefault,szADOUDefault,ADDC1;

STRING svName, svCompany, svSerial;

function OnFirstUIBefore()

NUMBER nResult,nOpt,svEdit1,svEdit2;

STRING szTitle, szMsg,szBmpPath;

STRING szLicenseFile, szQuestion;

STRING szServerIP,szServerPort,szServerIPDefault,szServerPortDefault;

STRING szFile,szTargetPath,szDir,szfolder;

STRING szComponents, szTargetdir;

STRING szField1,szField2;

STRING szDefault,svResult;

OBJECT piisObj;

LIST list,listStartCopy;

NUMBER nLevel,nvSize;

begin

TMP_PRODUCT_NAME="XXX电子政务平台";

TMP_PRODUCT_VERSION="V2.0";

TMP_COMPANY_NAME="XXX公司";

TMP_PRODUCT_KEY="88888888";

TMP_TITLE_CAPTIONBAR="0";

szBmpPath=SUPPORTDIR^"left.bmp";

DialogSetInfo(DLG_INFO_ALTIMAGE, szBmpPath, FALSE); // 设置左边的图片

//To Do: if you want to enable background, window title, and caption bar title

SetTitle( @TITLE_MAIN, 24, WHITE );

SetTitle( @TITLE_CAPTIONBAR, 0, BACKGROUNDCAPTION );

Enable( FULLWINDOWMODE );

Enable( BACKGROUND );

SetColor(BACKGROUND,RGB (0, 128, 128));

PlaceBitmap (szBmpPath, BITMAP_ID, 0, 0, FULLSCREEN);

//默认值设定

TARGETDIR = "C:"^"inetpub"^@FOLDER_NAME;

szDir = TARGETDIR;

SHELL_OBJECT_FOLDER = @FOLDER_NAME;

svName = "";

svCompany = "";

svSerial = "88888888";

if (CheckIIS()==1) then // 示例:检查系统是否安装IIS

//MessageBox ("已经安装了IIS,安装继续!",SEVERE);

goto Dlg_Start;

else

MessageBox ("该系统没有安装IIS,请先安装IIS!",WARNING);

goto end_all_install;//结束安装

endif;

Dlg_Start:// 开始对话框

Dlg_SdWelcome: //欢迎 对话框

szTitle = "欢迎安装使用 "+TMP_PRODUCT_NAME+" "+TMP_PRODUCT_VERSION;

szMsg = "";

nResult = SdWelcome( szTitle, szMsg );

if (nResult = BACK) goto Dlg_Start;

Dlg_SdLicense://软件许可协议 对话框

szLicenseFile = SUPPORTDIR ^ "license.txt";

szTitle = "最终用户许可协议";

szMsg = "";

szQuestion = "";

nResult = SdLicense( szTitle, szMsg, szQuestion, szLicenseFile );

if (nResult = BACK) goto Dlg_SdWelcome;

Dlg_SdShowInfoList://readme文件 对话框

szFile = SUPPORTDIR ^ "infolist.txt";

list = ListCreate( STRINGLIST );

ListReadFromFile( list, szFile );

szTitle = "系统信息概述";

szMsg = "系统概述";

nResult = SdShowInfoList( szTitle, szMsg, list );

ListDestroy( list );

if (nResult = BACK) goto Dlg_SdLicense;

Dlg_SdRegisterUserEx://用户信息 对话框

szMsg = "";

szTitle = "用户信息注册";

svCompany = "XXX省";

svSerial = "XXX单位";

nResult = SdRegisterUserEx( szTitle, szMsg, svName, svCompany, svSerial );

if (nResult = BACK) goto Dlg_SdShowInfoList;

//检查序列号

//if (CHK_serial(svCompany, svSerial)<0) then

//goto Dlg_SdRegisterUserEx;

//endif;

//检查序列号完毕

Dlg_InputADAdmin://设置AD目录服务器的IP和用户名

szTitle = "设置目录(AD)服务器";

szMsg = "现在开始设置目录(AD)服务器的IP、管理员帐号和密码";

szQuestion=" 请输入目录(AD)服务器的管理员帐号和密码,安装程序将按照您提供的IP地址、帐号和密码进行配置。如果您提供的帐号或密码错误的话,该系统将不能正常使用!";

szADsvr="IP地址:";

szADusr="帐 号:";

szADpwd="密 码:";

szADsvrDefault="192.168.8.8";

szADusrDefault="Administrator";

szADpwdDefault="";

SetDialogTitle(DLG_ASK_TEXT,szTitle);

nResult=SdShowDlgEdit3 (szTitle, szQuestion,szADsvr,szADusr,szADpwd,szADsvrDefault,szADusrDefault,szADpwdDefault);

if (nResult = BACK) goto Dlg_SdRegisterUserEx;

Dlg_InputADDomain://设置AD目录服务器的域和组织

szTitle = "设置目录(AD)服务器";

szMsg = "现在开始设置目录(AD)服务器的域名和组织单元";

szQuestion=" 请输入目录(AD)服务器的完整域名和组织单元,安装程序将按照您提供的信息进行配置。如果您提供的信息错误的话,该系统将不能正常使用!";

szADDomain="完整域名:";

szADOU="组织单元:";

szADDomainDefault="xx.xx.com";

szADOUDefault="XXX域名";

SetDialogTitle(DLG_ASK_TEXT,szTitle);

nResult=SdShowDlgEdit2 (szTitle, szQuestion,szADDomain,szADOU,szADDomainDefault,szADOUDefault);

//域名转换为3个DC

if ((StrSub ( ADDC1, szADDomain, 0, StrFindEx ( szADDomain, ".", 0 )+1))<0) then

//只取第一个,后面的固定

MessageBox("你输入的域名有错误,请重新输入!",WARNING);

goto Dlg_InputADDomain;

endif;

if (nResult = BACK) goto Dlg_SdRegisterUserEx;

Dlg_SetupType: //安装类型 对话框

nSetupType = "完全安装";

szTitle = "安装类型";

szMsg = "请选择您需要按哪种方式安装";

nResult = SdSetupTypeEx ( szTitle , szMsg , "" , nSetupType , 0 );

if (nResult = BACK) then

goto Dlg_SdRegisterUserEx;

endif;

if (nSetupType = "仅主程序") then

goto Dlg_SdAskDestPath;

endif;

Dlg_AskSQL://设置数据库服务器 对话框

szTitle = "设置SQL数据库";

szMsg = "现在开始设置Microsoft SQL Server数据库系统";

szQuestion=" 请输入SQL SERVER数据库服务器的用户名和密码,安装程序将按照您提供的IP地址和下面的用户名和密码创建和优化数据库系统。如果您提供的用户名和密码是错误的,安装程序将自动跳过数据的设置!";

szSQLsvr="主机名:";

szSQLusr="用户名:";

szSQLpwd="密 码:";

szSQLsvrDefault="192.168.8.8";

szSQLusrDefault="sa";

szSQLpwdDefault="";

SetDialogTitle(DLG_ASK_TEXT,szTitle);

nResult=SdShowDlgEdit3 (szTitle, szQuestion,szSQLsvr,szSQLusr,szSQLpwd,szSQLsvrDefault,szSQLusrDefault,szSQLpwdDefault);

if (nResult = BACK) goto Dlg_SetupType;

Dlg_SdStartCopy://开始复制文件 对话框

szTitle = "确认数据库信息";

szMsg = "点击下一步继续";

listStartCopy = ListCreate( STRINGLIST );

ListAddString(listStartCopy,"用户名:"+svName,AFTER);

ListAddString(listStartCopy,"公司名称:"+svCompany,AFTER);

ListAddString(listStartCopy,"主机名:"+szSQLsvrDefault,AFTER);

ListAddString(listStartCopy,"用户名:"+szSQLusrDefault,AFTER);

ListAddString(listStartCopy,"密 码:"+szSQLpwdDefault,AFTER);

ListAddString(listStartCopy,"",AFTER);

ListAddString(listStartCopy,"请确认您填写的信息,按下一步继续",AFTER);

iscreatedb=TRUE;//安装数据库标志为真

destsvr=szSQLsvrDefault;

destsa=szSQLusrDefault;

destpw=szSQLpwdDefault;

nResult = SdStartCopy( szTitle, szMsg, listStartCopy );

ListDestroy(listStartCopy);

if (nResult = BACK) goto Dlg_AskSQL;

SetStatusWindow(0, "");

Enable(STATUSEX);

StatusUpdate(ON, 100);

if (nSetupType = "仅数据库") then

goto end_all_install;

endif;

//开始主程序安装

Dlg_SdAskDestPath://安装位置 对话框

szTitle = "主程序安装位置";

szMsg = "";

nResult = SdAskDestPath( szTitle, szMsg, szDir, 0 );

TARGETDIR = szDir;

destdir=szDir;

if (nResult = BACK) goto Dlg_SetupType;

Dlg_SelMode1://设置IIS服务器 对话框

szTitle = "设置"+TMP_PRODUCT_NAME+"的运行模式";

szMsg = "请选择软件运行的方式,极力推荐使用独立站点方式运行";

szField1="独立站点方式运行(自动创建新站点)";

szField2="虚拟目录方式运行(自动创建虚拟目录)";

svEdit1=TRUE;

svEdit2=FALSE;

SetDialogTitle(DLG_ASK_TEXT,szTitle);

//DialogSetInfo ( DLG_INFO_CHECKSELECTION, "", 1);

nOpt = EXCLUSIVE ;

nResult = AskOptions (nOpt,szMsg,szField1,svEdit1,szField2,svEdit2);

if (nResult = BACK) goto Dlg_AskSQL;

if (svEdit1=FALSE) goto Dlg_AskText1;//选择创建虚拟目录

Dlg_AskText ://设置IIS服务器,建立站点 对话框

szTitle = "设置IIS信息服务器";

szMsg = "现在开始设置IIS系统";

szQuestion=" 请输入本服务器的主机名或IP地址,安装程序将按照您提供的资料设置IIS信息服务。如果您没有填写,安装程序将自动跳过站点的创建!";

szServerIP="地址:";

szServerPort="端口:";

szServerIPDefault="192.168.8.8";

szServerPortDefault="80";

SetDialogTitle(DLG_ASK_TEXT,szTitle);

nResult=SdShowDlgEdit2 (szTitle, szQuestion,szServerIP,szServerPort,szServerIPDefault,szServerPortDefault);

if (nResult = BACK) goto Dlg_SelMode1;

if (nResult = NEXT) goto Dlg_SdStartCopy1;

Dlg_AskText1 ://设置IIS服务器,建立虚拟目录 对话框

szTitle = "设置IIS信息服务器";

szMsg = "现在开始设置IIS系统";

szQuestion=" 请输入本服务器的主机名或IP地址,安装程序将按照您提供的资料设置IIS信息服务。如果您没有填写,安装程序将自动跳过站点的创建!";

szServerIP="别名:";

szServerPort="目录:";

szServerIPDefault="oa";

szServerPortDefault=szDir;

SetDialogTitle(DLG_ASK_TEXT,szTitle);

nResult=SdShowDlgEdit2 (szTitle, szQuestion,szServerIP,szServerPort,szServerIPDefault,szServerPortDefault);

if (nResult = BACK) goto Dlg_AskText;

Dlg_SdStartCopy1://开始复制文件 对话框

szTitle = "确认IIS服务器信息";

szMsg = "点击下一步继续";

listStartCopy = ListCreate( STRINGLIST );

ListAddString(listStartCopy,"用户名:"+svName,AFTER);

ListAddString(listStartCopy,"公司名称:"+svCompany,AFTER);

ListAddString(listStartCopy,"目标目录:"+szDir,AFTER);

if (svEdit1=TRUE) then

ListAddString(listStartCopy,"IP地址:"+szServerIPDefault,AFTER);

ListAddString(listStartCopy,"端口号:"+szServerPortDefault,AFTER);

endif;

if (svEdit2=TRUE) then

ListAddString(listStartCopy,"别名:"+szServerIPDefault,AFTER);

ListAddString(listStartCopy,"目录:"+szServerPortDefault,AFTER);

endif;

ListAddString(listStartCopy,"",AFTER);

ListAddString(listStartCopy,"请确认您填写的信息,按下一步继续",AFTER);

nResult = SdStartCopy( szTitle, szMsg, listStartCopy );

ListDestroy(listStartCopy);

if (nResult = BACK) goto Dlg_AskText1;

SetStatusWindow(0, "");

Enable(STATUSEX);

Enable(INDVFILESTATUS);

StatusUpdate(ON, 100);

if (svEdit1=TRUE) then

CreateWebSite(szServerIPDefault,szServerPortDefault); // 开始创建 IIS 站点

endif;

if (svEdit2=TRUE) then

CreateVirtualDir(szServerIPDefault); // 开始创建 IIS 站点

endif;

end_all_install://结束全部安装

return 0;

end;

function OnFirstUIAfter()

STRING szTitle,szMsg1, szMsg2, szOption1, szOption2,szCmdLine;

NUMBER bOpt1, bOpt2;

STRING szMsg;

begin

if ((nSetupType = "完全安装") || (nSetupType = "仅数据库"))then

//开始创建数据库

CreateDataBase(destsvr,destsa,destpw); // 创建和优化数据库

if (nSetupType = "完全安装")then

//开始设置global.asa

OpenFileMode (FILE_MODE_NORMAL);//打开文件方式只读

if (OpenFile (nvFileHandlebak, destdir, "global.bak") < 0) then

MessageBox ("打开配置文件失败,请手动配置", SEVERE);

goto end_all_install1;

endif;

OpenFileMode (FILE_MODE_APPEND);//打开文件方式可写

if (CreateFile (nvFileHandle, destdir, "global.asa") < 0) then

MessageBox ("创建global.asa文件失败,请手动配置", SEVERE);

goto end_all_install1;

else//开始写文件

asaline=1;

while (GetLine (nvFileHandlebak, globalstr) = 0)

if (asaline=15) then//此行需修改,否则原样写入文件:使用单位所在区域

globalstr="\"uninname=" + svCompany + "\"";

if (WriteLine(nvFileHandle, globalstr) < 0) then

MessageBox ("写global.asa文件失败,请手动修改", WARNING);

goto end_all_install1;

endif;

endif;

if (asaline=17) then//此行需修改,否则原样写入文件:单位名称

globalstr="Application(\"thissoftuser\")=uninname & \"" + svSerial + "\"";

if (WriteLine(nvFileHandle, globalstr) < 0) then

MessageBox ("写global.asa文件失败,请手动修改", WARNING);

goto end_all_install1;

endif;

endif;

if (asaline=18) then//此行需修改,否则原样写入文件:单位名称

globalstr="Application(\"UnitName\")=uninname & \"" + svSerial + "\"";

if (WriteLine(nvFileHandle, globalstr) < 0) then

MessageBox ("写global.asa文件失败,请手动修改", WARNING);

goto end_all_install1;

endif;

endif;

if (asaline=30) then//此行需修改,否则原样写入文件:SQL连接

globalstr="Application(\"SqlLink\")=\"Provider=SQLOLEDB.1;Password=" + destpw + ";Persist Security Info=True;User ID=" + destsa + ";Initial Catalog=oa;Data Source=" + destsvr + "\"";

if (WriteLine(nvFileHandle, globalstr) < 0) then

MessageBox ("写global.asa文件失败,请手动修改", WARNING);

goto end_all_install1;

endif;

endif;

if (asaline=32) then//此行需修改,否则原样写入文件:SQL连接

globalstr="Application(\"ConnectSql\")=\"Driver=SQL Server;Server=" + destsvr + ";Database=oa;UID=" + destsa + ";Initial Catalog=oa;PWD=" + destpw + "\"";

if (WriteLine(nvFileHandle, globalstr) < 0) then

MessageBox ("写global.asa文件失败,请手动修改", WARNING);

goto end_all_install1;

endif;

endif;

if (asaline=37) then//此行需修改,否则原样写入文件:AD管理员帐号

globalstr="Application(\"User_SDJSWOAVERSION\")=\"" + szADusrDefault + "@" + szADDomainDefault + "\"";

if (WriteLine(nvFileHandle, globalstr) < 0) then

MessageBox ("写global.asa文件失败,请手动修改", WARNING);

goto end_all_install1;

endif;

endif;

if (asaline=38) then//此行需修改,否则原样写入文件:AD管理员密码

globalstr="Application(\"Password_SDJSWOAVERSION\")=\"" + szADpwdDefault + "\"";

if (WriteLine(nvFileHandle, globalstr) < 0) then

MessageBox ("写global.asa文件失败,请手动修改", WARNING);

goto end_all_install1;

endif;

endif;

if (asaline=61) then//此行需修改,否则原样写入文件:ADIP地址和组织单元

globalstr="Application(\"AdsPath_SDJSWOAVERSION\")=\"LDAP://" + szADsvrDefault + ":389/OU=" + szADOUDefault + ",DC=" + ADDC1 + ",DC=xxx,DC=com\"";

if (WriteLine(nvFileHandle, globalstr) < 0) then

MessageBox ("写global.asa文件失败,请手动修改", WARNING);

goto end_all_install1;

endif;

endif;

if (asaline=62) then//此行需修改,否则原样写入文件:连接AD

globalstr="Application(\"ExchangeServer_SDJSWOAVERSION\")=\"" + szADsvrDefault + ":3268/\"";

if (WriteLine(nvFileHandle, globalstr) < 0) then

MessageBox ("写global.asa文件失败,请手动修改", WARNING);

goto end_all_install1;

endif;

endif;

asaline=asaline+1;//下一行

endwhile;

endif;

// 关闭文件

CloseFile (nvFileHandle);

CloseFile (nvFileHandlebak);

szTitle = "创建配置文件";

szMsg = "恭喜,自动修改配置文件成功!";

SprintfBox (INFORMATION, szTitle, szMsg, "global.asa");

endif;

endif;

end_all_install1:

Disable(STATUSEX);

bOpt1 = FALSE;

bOpt2 = FALSE;

szMsg1 = SdLoadString(IFX_SDFINISH_MSG1);

szMsg2 = "";

szOption1 = "";

szOption2 = "";

szTitle = TMP_PRODUCT_NAME+"安装完成";

SdFinishEx(szTitle,szMsg1,szMsg2,szOption1,szOption2,bOpt1,bOpt2);

//szCmdLine = "http://LocalHost";

//if (LaunchApp(PROGRAMFILES ^"Internet Explorer"^"IEXPLORE.EXE", szCmdLine) < 0) then

//MessageBox ("不能打开浏览器.",SEVERE);

//endif;

Dlg_RebootDialog:

szTitle = "欢迎安装使用 "+TMP_PRODUCT_NAME+" "+TMP_PRODUCT_VERSION;

szMsg = " 安装向导已经成功安装该系统。在使用该系统之前,必须重新启动计算机。";

SdFinishReboot(szTitle, szMsg, SYS_BOOTMACHINE,"",0);

return 0;

end;

//////////////////////////

// 创建和优化数据库

//////////////////////////

function CreateDataBase(svSQLsvrf,svSQLusrf,svSQLpwdf)

STRING szCmdLine,szWaitTxt,tmpstr;

begin

szWaitTxt=" 正在创建 "+TMP_PRODUCT_NAME+" 所需数据库....";

SdShowMsg (szWaitTxt, TRUE);

Delay(3);

szCmdLine = "/U "+svSQLusrf+" /P "+svSQLpwdf+" /S "+svSQLsvrf+" /Q \"restore database sdjswoa from disk='" + TARGETDIR + "\db\oa'"";

if (LaunchAppAndWait("osql.exe", szCmdLine,WAIT) < 0) then

tmpstr="数据库创建失败!请确您的系统中已安装 Microsoft SQL Server 2000和SP1!";

SprintfBox (INFORMATION, "安装提示信息", tmpstr, "");

endif;

SdShowMsg (szWaitTxt, FALSE);

szWaitTxt=" 正在优化 "+TMP_PRODUCT_NAME+" 系统数据库....";

SdShowMsg (szWaitTxt, TRUE);

Delay(3);

szCmdLine = "/U "+svSQLusrf+" /P "+svSQLpwdf+" /S "+svSQLsvrf+" /Q \"use sdjswoa ; exec sp_updatestats\"";

if (LaunchAppAndWait("osql.exe", szCmdLine,WAIT) < 0) then

tmpstr="数据库优化失败!请联系相关人员或者手动安装!";

SprintfBox (INFORMATION, "安装提示信息", tmpstr, "");

endif;

SdShowMsg (szWaitTxt, FALSE);

return 0;

end;

//////////////////////////

// 创建IIS站点

//////////////////////////

function CreateWebSite(szServerIPDefault,szServerPortDefault)

STRING szCmdLine,szWaitTxt;

begin

if ((szServerIPDefault = "") || (szServerPortDefault = "")) then

MessageBox ("您没有设定"+TMP_PRODUCT_NAME+"运行的服务器IP地址或端口!!IIS信息服务设置失败!\n请自行创建IIS站点,并将主目录设为:"+TARGETDIR,SEVERE);

else

szWaitTxt=" 正在创建IIS和设置站点....";

SdShowMsg (szWaitTxt, TRUE);

Delay(3);

szCmdLine = SUPPORTDIR ^"mkw3site.vbs"+" -r "+TARGETDIR+" -i "+szServerIPDefault+" -o "+szServerPortDefault+" -t "+TMP_PRODUCT_NAME;

if (LaunchAppAndWait("WScript.exe", szCmdLine,WAIT) < 0) then

MessageBox ("不能建立WEB 虚拟目录,没有找到 WScript.exe 或执行脚本错误.",SEVERE);

endif;

SdShowMsg (szWaitTxt, FALSE);

endif;

return 0;

end;

//////////////////////////

// 创建虚拟目录

//////////////////////////

function CreateVirtualDir(VirtualFolder)

STRING szCmdLine,szWaitTxt;

begin

if (VirtualFolder = "") then

MessageBox ("没能读取到虚拟目录的名称!请联系系统供应商!"+TARGETDIR,SEVERE);

else

szWaitTxt=" 正在创建"+TMP_PRODUCT_NAME+"的虚拟目录....";

SdShowMsg (szWaitTxt, TRUE);

Delay(3);

szCmdLine = SUPPORTDIR ^"mkwebdir.vbs "+" -w 1 -v \""+VirtualFolder+"\",\""+ TARGETDIR+"\"" ;

if (LaunchAppAndWait("WScript.exe", szCmdLine,WAIT) < 0) then

MessageBox ("不能建立WEB 虚拟目录,没有找到 WScript.exe 或执行脚本错误.",SEVERE);

endif;

SdShowMsg (szWaitTxt, FALSE);

endif;

return 0;

end;

function CheckIIS() // 示例:检查系统是否安装IIS

NUMBER nvType, nvSize;

STRING svvalue;

begin

RegDBSetDefaultRoot ( HKEY_LOCAL_MACHINE );

if (RegDBKeyExist ("System\\CurrentControlSet\\Services\\IISADMIN" ) = 1) then

return (1);

else

return (0);

endif;

end;

 
 
 
免责声明:本文为网络用户发布,其观点仅代表作者个人观点,与本站无关,本站仅提供信息存储服务。文中陈述内容未经本站证实,其真实性、完整性、及时性本站不作任何保证或承诺,请读者仅作参考,并请自行核实相关内容。
2023年上半年GDP全球前十五强
 百态   2023-10-24
美众议院议长启动对拜登的弹劾调查
 百态   2023-09-13
上海、济南、武汉等多地出现不明坠落物
 探索   2023-09-06
印度或要将国名改为“巴拉特”
 百态   2023-09-06
男子为女友送行,买票不登机被捕
 百态   2023-08-20
手机地震预警功能怎么开?
 干货   2023-08-06
女子4年卖2套房花700多万做美容:不但没变美脸,面部还出现变形
 百态   2023-08-04
住户一楼被水淹 还冲来8头猪
 百态   2023-07-31
女子体内爬出大量瓜子状活虫
 百态   2023-07-25
地球连续35年收到神秘规律性信号,网友:不要回答!
 探索   2023-07-21
全球镓价格本周大涨27%
 探索   2023-07-09
钱都流向了那些不缺钱的人,苦都留给了能吃苦的人
 探索   2023-07-02
倩女手游刀客魅者强控制(强混乱强眩晕强睡眠)和对应控制抗性的关系
 百态   2020-08-20
美国5月9日最新疫情:美国确诊人数突破131万
 百态   2020-05-09
荷兰政府宣布将集体辞职
 干货   2020-04-30
倩女幽魂手游师徒任务情义春秋猜成语答案逍遥观:鹏程万里
 干货   2019-11-12
倩女幽魂手游师徒任务情义春秋猜成语答案神机营:射石饮羽
 干货   2019-11-12
倩女幽魂手游师徒任务情义春秋猜成语答案昆仑山:拔刀相助
 干货   2019-11-12
倩女幽魂手游师徒任务情义春秋猜成语答案天工阁:鬼斧神工
 干货   2019-11-12
倩女幽魂手游师徒任务情义春秋猜成语答案丝路古道:单枪匹马
 干货   2019-11-12
倩女幽魂手游师徒任务情义春秋猜成语答案镇郊荒野:与虎谋皮
 干货   2019-11-12
倩女幽魂手游师徒任务情义春秋猜成语答案镇郊荒野:李代桃僵
 干货   2019-11-12
倩女幽魂手游师徒任务情义春秋猜成语答案镇郊荒野:指鹿为马
 干货   2019-11-12
倩女幽魂手游师徒任务情义春秋猜成语答案金陵:小鸟依人
 干货   2019-11-12
倩女幽魂手游师徒任务情义春秋猜成语答案金陵:千金买邻
 干货   2019-11-12
 
推荐阅读
 
 
 
>>返回首頁<<
 
靜靜地坐在廢墟上,四周的荒凉一望無際,忽然覺得,淒涼也很美
© 2005- 王朝網路 版權所有